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The HP-71 is an advanced portable BASIC handheld computer with 
built-in calculator capabilities. The proprietary CPU, which has a 
512KB address space, is optimized for high-precision BCD math and 
very low power consumption. The proprietary 64KB BASIC operating 
system automatically incorporates plug-in software and memory 
modules, allows optional device interfaces such as HPIL or card, 
maintains a memory file system that may contain an arbitrary number 
of files, and has been designed so that independent software 
vendors may conveniently extend or customize the functionality of 
the machine. HP-71 software may be programmed in BASIC, FORTH, or 
assembly language. 


The internal design of the HP-71 operating system is documented in 
three volumes, of which this is the first: 


* HP-71 Software Internal Design Specification 
Volume I: Detailed Design Description 
Volume II: Enti y Point and Poll Interfaces 
Volume III: Operating System Source Listings 


A brief overview of these three volumes, which are known 
collectively as the HP-71 Software IDS, is given below. Related 
documents which may also be of interest are: 


* HP-71 Hardware Specification 
* HP-71 HP-IL Module Internal Design Specification 
Volume I: Detailed Design and Entry Point Description 
Volume II: Source Listings 
* HP-71 FORTH/Assembler ROM Owner’s Manual 
For information on how to order any of these documents, please 


contact Systems Engineering Support in the HP Portable Computer 
Division Product Support Group at (503) 757-2000. 


1.1 Structure of the HP-71 Software IDS 


This three-volume document discusses the internal design of the 
HP-71 Operating System in sufficient detail to allow applications 
software programmed in BASIC, FORTH or assembly language to use the 
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various resources of the Operating Systen. 


1.1.1 Volume I:’ Detailed Design Description 


This volume, which you are currently reading, documents the 
operating system memory Structure, table formats, configuration, 
operation, interrupt handling, BASIC tokenization, file systen, 
numerical algorithms, and the interfaces to Language Extension 
(LEX) files. A summary of important system utilities is also 
provided. Here is a brief description of the remaining chapters in 
this volume: 


Chapter 2 - System Startup and Memory Configuration 
This chapter describes how the HP-71 configures memory at power 
on, memory reset, or after FREE PORT or CLAIM PORT commands. 


Chapter 3 - Memory Structure 
This chapter describes how memory is initialized after startup 
configuration. The meanings of various system pointers and 
locations in system RAM are also discussed, along with certain 
memory data structures such as system buffers and the various 
system stacks. 


Chapter 4 - System Control 
The master control loop (Main Loop) of the operating system is 
described in this chapter, as well as the system’s handling of 
interrupts. 


Chapter 5 - The BASIC Interpreter 


An overview of the structure and operation of the HP-71 BASIC 
Interpreter is provided in this chapter. 


Chapter 6 - Language Extension and Binary Files 


This chapter describes the structure and use of LEX and BIN file 
types. Polling of LEX files by the operating system is also 
covered. 


Chapter A - BASIC File Considerations 


This chapter discusses specifics of BASIC file applications 
software. 


Chapter Z - Statement Parse, Decompile, and Execution 
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This chapter describes the procedures for writing code to support 
LEX file keywords. Keywords have routines to tokenize (parse) 
them, list (decompile) them, and to execute them. This chapter 
also gives a detailed description of the BASIC language 
tokenization used by the HP-71 BASIC Interpreter. 


Chapter 9 - Utilities 
This chapter summarizes various groups of operating system entry 
points which applications software may call to perform system 
operations. 


Chapter 10 - Message Handling 
This chapter describes how the HP-7i issues error and warning 
messages, and how LEX files may interface with this process. 


Chapter 11 - File System 
This chapter describes the HP-71 file system structure and the 
various file types which the HP-71 supports. 


Chapter 12 - Table Formats 
This chapter describes the format of various operating system 
data structures, such as file information buffers, alternative 
character set buffers, file type tables, and so forth. 


Chapter 13 - Internal Data Representation 


This chapter describes how data and operands are internally 
represented in registers, variables, and arrays. 


Chapter 14 - Numeric Computation Algorithms 
This chapter describes the overall algorithms and procedures used 
by the HP-71 in mathematical statistical calculations. 


Chapter 15 - Clock Systen 


This chapter describes the internal workings of the HP-71 clock 
system and related considerations for developing clock system 
applications software. 


Chapter 16 - HP-71 Assembler Instruction Set 


ee we oe ee 


This chapter describes the HP-71 assembler instruction set and 
gives the instruction opcodes and execution cycle times. 


Chapter 17 - HP-71 Code Examples 





HP-71 Software IDS - Detailed Design Description 
Overview 


This chapter gives examples of how to perform various operations 
in HP-71 machine language. 


Chapter 18 - HP-71 Resource Allocation 
This chapter lists the current allocations of HP-71 Operating 
system resources such as system buffer ID’s, LEX file ID’s, poll 
process numbers, file types, reserved RAM, and so forth. It also 
describes the procedures by which additional resources may be 
allocated. 


1.1.2 Volume II: Entry Point and Poll Interfaces 


This volume documents the entry and exit conditions of the 25 
categories of supported system entry points that are available to 
the assembly language programmer, as well as the interfaces to 
operating system polls of LEX files. Supported entry point 
categories include keyboard and display interface utilities, math, 
parse, decompile, and file utilities, and so forth. An index of 
entry point names and global symbol values is also included. 


HP-71 SUPPORTED ENTRY POINT CATEGORIES 
1. Address Calculation Utilities 

2. 1/0 Buffer Utilities 

3. System Configuration Utiltities 
4, Conversion Utilities 

5. Display Utilities 

6. Decompile Utilities 

7. Execute Utilities 

8. File Utilities 

9. Function Execute Utilities 

10. General Purpose Utilities 

ll. Keyboard Utilities 

12. System Math Functions 

13. Math Stack Utilities 

14. System Level Math Utilities 

15. Parse Utilities 

16. Poll Interface Descriptions 

17. Pointer Utilities 

18. Save Stack Utilities 

19, Save Utilities 

20. Statement Decompile Utilities 
21. Statement Execute Utilities 

e2. Statement Parse Utilities 

23. System Level Major Entry Points 
24. Time And Date Utilities 
25. Variable Management Utilities 
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1.1.3 Volume III: Operating System Source Listings 


This hefty volume contains the full assembly listings of the 76 
modules which comprise the HP-71 operating system. All parts of 
the operating system are listed, including the mainframe token 
tadle, BASIC interpreter, math routines, and supported entry 
points. The supported entry point interface documentation in 
Volume II is programmatically extracted, categorized, and indexed 
from comment blocks in these source modules. Therefore Volume II 
information reappears in scattered form throughout Volume III. 


1.2 Operating System Overview 


The HP~71 contains a 64KB operating system kernel which resides at 
address 0. The kernel performs various control functions, and 
contains the BASIC interpreter. An internal clock system supports 
time-dependent applications. External software may be added to the 
Machine in the form of files which are interpreted or executed 
directly by the kernel. These files may be directly added ta the 
computer through plug-in memory modules, or copied into the 
computer from external media such as magnetic cards or tape. 


There are three types of software files which can be interpreted or 
executed by the HP-71 standard configuration: BASIC, BIN (Binary), 
and LEX (Language Extension). A FORTH file type may also be 
invoked when the HP-71 FORTH/Assembler ROM is present in the 
machine. 


BASIC files may be developed on the HP-71 using the built-in BASIC 


interpreter. BIN, LEX, and FORTH files may be developed on the 
HP-71 using the FORTH/Assembler ROM. 
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Type Format Invocation Mode of Execution 
BASIC Tokenized BASIC RUN, CHAIN, or Interpretation 
statements CALL command 
BIN Machine language RUN, CHAIN, or Direct execution 
(binary) CALL command 
LEX Language extension Through its Direct execution 
file; adds BASIC added BASIC 
keywords, messages, keywords and 
and functional by polls from 
extensions; written operating 
in machine language system 
FORTH FORTH vocabulary Through FORTH Threaded Inter- 


interpreter pretation 


A BASIC or BIN file can be executed as a program or as a 
subprogram. However, the great flexibility of the HP-71 operating 
system is due to the manner in which it automatically incorporates 
LEX files into the operation of the machine. 


A LEX file may contain a BASIC keyword token table which is similar 
in format to the built-in token tables used by the HP-71 BASIC 
interpreter. Whenever a LEX file is added to the machine, it is 
automatically “registered” with the operating system. Ihe BASIC 
command interpreter then references the LEX file’s keywords during 
lexical analysis, making them automatically a part of the HP-71 
command language available to the computer’s user. 


In addition, a LEX file may contain a message table in order to add 
its own error/warning messages to the machine, or to override the 
built-in HP-71 error messages for foreign language localization. 
(An example of such a LEX file is given inthe "HP-71 Code 
Examples” chapter) 


Furthermore, the operating system contains outward hooks, called 
“polls”, by which a LEX file may intercept the operation of the 
machine at a strategic point to extend or customize that operation. 
At over 80 points in the operating system code when the system is 
prepared to perform a special task, such as parsing a device name 
or terminating execution of a program, it “polls” each LEX file 
present in the machine to find if one wishes to intercept the task. 


The polling mechanism is as follows. The operating system jumps to 
the LEX file’s poll handling code, passing a unique code called a 
“poll process number" that identifies the task to be done. The LEX 
file may choose to intercede by honoring the documented interface 
for that poll process mumber. In this way very sophisticated and 
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detailed customization of the machine’s functionality is possible. 
Polling is described in detail below. The individual poll 
interfaces are described in Volume II of this document. 


Since there is no logical separation of address space between an 
application program and the HP-71 operating system, a code in a BIN 
or LEX file may directly access certain system entry points to 
perform operations ranging from BCD math to file I/0. Over 1700 
such entry points are supported by the HP-71 in such a manner that 
the absolute addresses of these entry points will remain fixed 
throughout subsequent releases of the operating system ROMs. The 
interfaces to these entry points are described in Volume II of this 
document. 


1.2.1 Memory Layout 


The general layout of the HP-71 physical address space is shown 
below. Sections marked with an asterisk indicate RAM areas which 
may be used by applications software for data storage according to 
the procedures described in this document. 


| Operating System | 


| Memory-Mapped I/O | 
| and Display RAM | 


poe - + + 
| System RAM | 
+----------~------- +--+ + 
| *Reserved RAM | 
$--------~---- +++ +--+ + 
| *MAIN File Chain | 
$------- - - - - - - - - - + 
| *System Buffers | 
Se e + 
| Command Stack | 
$a wee ee + 
| CALC Mode Buffers | 
$----------~ - +--+ + 
| *Available Memory § | 
Ho --- ~~ -- - + + 
| *Environment Stacks | 
$e ne ee + 
| Independent RAM, | 
| ROM Modules | 
4$--------- - +--+ ++ + 
17 
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1.2.2 File System 


The HP-71 has a memory-based file system which has no central 
directory. The main file system is a chain of files, each with its 
own identifying file header, in Main RAM. 


In general, a plug-in ROM module contains its own file chain in the 
same format as the main file chain. Similarly, a plug-in RAM 
module can be maintained as an Independent RAM (IRAM) with its own 
file chain, or it can be pooled with the Main RAM. The operating 
system’s file operations automatically incorporate all file chains 
present in memory. 


1.3 CPU Overview 


The HP-71 CPU is a proprietary CPU optimized for high-accuracy BCD 
math and low power consumption. The data path is 4 bits wide. 
Memory is accessed in 4-bit quantities called "nibbles" or “nibs”. 
Addresses are 20 bits, yielding a physical address space of 512K 
bytes. 


There are four working 64-bit registers, five scratch 64-bit 
registers, tuo 20-bit data pointer registers, one 4-bit pointer 
register, a 20-bit program counter, a 16-bit input register, anda 
l2-bit output register. Return addresses are stored on an 
eight-level hardware return stack that accepts 20-bit addresses. 
In addition, there 4 hardware status bits, a carry bit, and 16 
program status bits. The lower 12 program status bits can be 
manipulated as a 12-bit register. 


For amore detailed overview of the HP-71 CPU, please see the 
“HP-71 Assembler Instruction Set" chapter. 


1.3.1 Registers 


The working registers are used for data manipulation. Registers A 
and © are also used for memory access. The scratch registers are 
used to temporarily hold the contents of working registers. 


In addition, the lower 20 bits of R4 are used during interrupt 
processing and therefore are not normally available for data 
storage. 
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WORKING REGISTERS SCRATCH REGISTERS 
Name Size Name $1ze 
+e eee ee ee ee ee + + -- ee eee + 
A | 64 bits RO | 64 bits 
+ ----- ~~ ne ee + +-------- ~~ - - + 
$¢-------- + - ~~~ - + too ee ee ee ee eee + 
B | 64 bits Ri | 64 bits 
+------ -- +--+ - - -- + +------~---------- + 
+4---- - - + 4------- ~~~ - - + 
c 4 64 bits Re | 64 bits 
+ ee ee + +-—----------- - ee + 
+4¢--~---------- - - + +o eee ee He ee ee ee ee + 
D | 64 bits R3 | 64 bits 
+-------- - + $—---- - - ee nr en nee + 


R4 | 64 bits* 


* Note: the lower 20 bits of R4 are modified 
whenever an interrupt occurs, and are 
generally unavailable for storage 


Es 3e142 Field Selection 


Subfields of the working registers may be manipulated by the use of 
field selection. The possible field selections range from the 
entire register to any single nibble of the register. Certain 
subfields are designed for use in BCD calculations. Others are 
used for data access or general data manipulation. See the "“HP-71 
Assembler Instruction Set" chapter for a description of the 
selectable fields. 


1.3.2 Pointer Registers 
The Data Pointer registers, DO and Dl, are used to contain 


addresses during memory access, and are used in conjunction with 
the working registers. 


The P Pointer register is used in Field Selection operations with 
the working registers. 
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DATA POINTER REGISTERS 
$a ne wo we ee ee + $m nn we Se + 
DO | 20 bits | Di si 20 bits | 
$e a + $a ae me ee ee ee + 


1.3.3. Imput, Output, and Program Counter Registers 


The input/output registers are used to communicate with the HP-71 
bus. The program counter points to the next instruction to be 
executed by the CPU. 


INPUT AND OUTPUT REGISTERS 


IN | 16 dits | OUI | 12 bdits | 


1.3.4 Status and Carry Bits 


The operating system uses 4 of the program status bits to indicate 
the state of the operating system. The remaining 12 program status 
bits are generally available to applications software. 


CARRY: — 1 bit 
PROGRAM STATUS: 16 bits (lower 12 act as the ST register) 
HARDWARE STATUS: 4 bits 
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1.4 HP Support For HP-71 Software Development 


HP encourages independent software vendors to develop software for 
the HP-71. There are a number of system resources, such as unique 
LEX file ID numbers and system buffer numbers, which may need to be 
allocated to a particular vendor’s software. The procedures for 
allocating these resources is described in the "HP-71 Resource 
Allocations" chapter. 


Any requests for further information should be directed to Systems 
Engineering Support in the HP Portable Computer Division Product 
Support Group at (503) 757-2000. 
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2.1 System Configuration Overview Including RAM and ROM 


00000 +---------------------- + LOW 


20000 tem em nm nn mn nr nr wr nnn eee + 
| Memory Mapped I/O | 
| and Display RAM | 


2F400 +---------------------- 4 0 eee ne - = - + ------ 
| System RAM | i 
2F986 +---------------------- + | 
| Reserved RAM | | 
CONEST +-------<--------------- + | 
| Configuration Buffer | Display Driver RAM 
$a a a wo on ne ee - -- + | 
| | | 
| User | | 
| | Vv 
30000 + - - - - + ween nnn -------------- 
| | : 
| Memory | 
| | Soft Configured and 
| | Plug-in RAM 
| | | 
| v 
RAMEND +------------~---~----- $0 wwe enseee------+---- 
| | 
| Plug-In ROMs | 
| and 
| Independent RAMs | 
| | 
FFCQQ +--~------------------- + 
| Config Reserve Area | Unusable 
FFFFF +---------------------- + HIGH 


For a further breakdown of User Memory, see the "Memory Structure” 
chapter. 
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2.2 Entering Deep Sleep 


When the computer is turned off, the state of the machine is 
preserved. All variables, pointers and stacks are preserved. A 
system configuration is performed upon wakeup from deep sleep. 


2.3 Startup/Configuration Sequence 


System configuration is performed at coldstart, power-on, and FREE 
and CLAIM execution. Performing configuration consists of 
determining what chips are resident on the system bus and assigning 
an address to each chip. While all chips are on the bus “in 
parallel", an electrical scheme known as  ~‘"“daisy chaining" 
determines an order in which the chips are found by the CPU when it 
is performing configuration. 


In a daisy chain, each chip has two special lines: daisy-in (DI) 
and daisy-out (DO). By creating a chain in which daisy-out of one 
chip is connected to daisy-in of the next chip, you establish an 
order. Daisy-in to the first chip is (in most cases) a 
software-switchable electrical line from the CPU (the one exception 
is port #0, the internal daisy chain, in which daisy-in to the 
first chip is wired high). 


P2r~2ee2r2er2r2r 2222 22222 27 225 2 2 £2 ew e© ww ew ew ow ew & & ww ew ww ww we we wm ew we oe we oe 
eee ste new wn ewe eee Se Se SSS SSS SKE SST SS SSS SSS SSS SSS SesStseseseseezrzz= 


When a chip is unconfigured, it does not occupy address space and 
its daisy-out is held low. If its daisy-in is low, it will not 
respond to any CPU instructions. If its daisy-in is high, it will 
respond to two instructions: C=ID, which returns the chip ID to the 
CPU (see CHIP ID, below), and CONFIG, which assigns an address to 
the chip and configures it. 


When a chip is configured, it does occupy address space and its 
daisy-out equals its daisy-in. In this state, the chip will NOT 
respond to C=ID and CONFIG. So once a chip has_ been configured, 
the next chip on the daisy chain is able to identify itself and be 
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configured. 


The configuration routine examines the daisy chains corresponding 
to ports #0 through #5 (see PORT#, below) and configures each chip 
on each daisy chain. A plug-in device may contain more than one 
chip and may even contain chips of different types (e.g., ROMs and 
RAMs). The routine builds lists in the configuration buffer area 
identifying what is plugged in and where it is configured. 


2.4 Configuration Routine -- DETAIL 


The configuration code assigns addresses to alli soft-configurable 
devices on the system Bus. The code builds three tables in the 
configuration buffers: system RAM, other memory (ROM, EEPROM, 
independent RAM, etc.), memory-mapped I/O. The  one-byte 
configuration buffer IDs for the above configuration tables are, 
respectively, FF, FE, FD. The exact format of the information in 
the tables is explained in "Table Formats” chapter. 


Following is the pre-configuration memory layout: 


00000-1FFFF: Operating system 

2C000-2CO1F: Card reader 

2E100-2E3FF: Display RAM 

2F400-2FFFF: Display Driver RAM 

(FFCOO-FFFFF: Reserved for configuration garbage dump) 


Addresses are assigned to devices as follows: 
Memory-mapped I/0 is configured in the space 20000-2C000. 
System RAM is configured contiguously upward from 30000. 


To achieve this contiguous mapping, system RAM is configured in 
reverse size order. That is, the largest RAM chips are 
configured first, then successively smaller chips. This assures 
that 64 Knib RAMS are configured on 64 Knib boundaries, 32 Knib 
RAMS on 32 Knib boundaries, etc. 


Other memory (ROM, independent RAM, EEPROM, etc.) is put in the 
space between the end of RAM and FFCOO. 


The scheme of where each memory device is configured is fairly 
complex. The configuration code assures that memory devices are 
configured on legal boundaries and that consecutive chips within 
a single plug-in are configured contiguously in the order in 
which they are encountered on the daisy chain. A bit within the 
chip ID (explained below) is used to identify the physical 
boundaries of the plug-in memory. 
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To explain configuration, the following terms are used below: 


PORT#: Physical port location (1-5) whose daisy chain is addressed 
by a bit (0-4) in output register. Port #0 is the internal 
daisy chain; it includes all built-in devices and the HPIL 
port. Ports #1-4 are the ports in the front of the machine 
(#1 is the leftmost port, etc.). Port #5 is the card reader 
slot. 


DEV#: Position of a plug-in (0-15) in a daisy chain. Unless there 
is a port extender, all plug-ins will be device #0. 


SEQUENCE: Consecutive chips ina module to be used as a_ single 
entity (e.g., a quad RAM which appears as one plug-in to 
the user). 


DEVICE TYPE: Type of memory (RAM, ROM, etc., or memory-mapped 1/0). 


DEVICE CLASS: Identifies exact type of memory-mapped I/O device. 


2.4.1 CHIP ID 
The CHIP ID is a (usually) mask-programmed 20-bit identifier which 
is read by the CPU onan ID poll (C=ID instruction). A chip 
responds to the ID poll if two conditions are met: 

1) The chip is unconfigured, 

2) Daisy-in is high on the chip. 
By examining the daisy chains one at a time and configuring each 


chip as it is found, the software can locate and identify all 
soft-configurable chips on the bus. 


The chip-id contains the following information: 


N 
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NIBBLE 0: 15-Log2(size). 


Memory Size Nib 0 MM 1/0 space 
1 knib F 1 word (16 nibs) 
2 E 2 
4 D 4 
8 C 8 
16 B 16 
32 A 32 
64 (max RAM) 9 64 
128 8 128 
256 (max memory) 7 256 
6 512 
5 1024 


NIBBLE 1: (Reserved for future use) 


This nibble from the first chip in a sequence is stored in the 
configuration table for all sequences. 


NIBBLE 2: Device type: 


0: RAM 
1: ROM (includes EPROM, which cannot be written to) 
2: EEPROM 
3-5: (unassigned) 
7-E: Unusable due to COPY command requirements 
F: Memory-mapped I/0 


NIBBLE 3: For memory: 
(Not used) 


For memory-mapped 1/0, contains device class: 


0: HPIL mailbox 
1-15: (Unassigned) 


(Note: Card reader is hard configured at 2C000-2C01F) 


NIBBLE 4: 
bits 0-1: (unassigned) 
bit 2: Last chip in sequence (see note (*) below). Always 


assumed high for MM I/O devices, meaning all such 
devices have their own entry in the Memory-mapped 1/0 
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table, 


bit 3: Last chip in module. Ona ROM, in general, this bit, 
like the rest of the ID, is mask-programmed. On RAMs, 
this chip is typically pad-programmed so the same 
parts can be used for all chips ina multi-chip RAM 
nodule. 


The top two bits (bits 2-3 of nibble 4) are used to determine what 
chips are in what physical plug-ins. Every sequence of chips 
(e.g., four identical RAMS in a RAM plug-in, an applications pack 
containing two ROMS, etc.) results in one entry in the 
configuration tables. 


(*) End of sequence (but not module) is identified in one of two 
ways: 1) next chip returns ID with different value in nibs 0-3, or 
2) last chip of sequence has bit 18 set. The second approach is 
necessary if consecutive, identical chips are to be considered as 
different sequences, and will probably NEVFR be used in the entire 
lifetime of the machine. But it can be done. 


2.4.1.1 Examples 


A module containing four 8-Kbit RAMS might return. the following 
sequence of IDs: 


OOOOE O000E O000E 8000E 


The resulting table entry would identify the chip size, chip count, 
device type, physical location, and configuration address of the 
device. 


A module containing tuo 128-Kbit ROMS, a memory-mapped I/0 
interface using 2 words of address space, and four 16-Kbit RAMS 
might present the following sequence of IDs: 


0010A First ROM \ one ROM table entry 
0010A End of ROM sequence / 
O1FOE MM 1/0 devclass i - one MM I/O table entry 


0000D Start of RAMS \ 
0000D | one RAM table entry 
0000D | 
8000D End of module / 


Restrictions: 16 chips/sequence 
16 sequences/device 
16 devices/port 
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2.5 Configuratién Buffer Format 


Configuration buffers contain a list of what devices are configured 
where. The buffers are treated and maintained similarly to system 
buffers (see chapter on 


1) Their ID’s are only two nibbles long, and 


2) They exist before program memory, while system buffers exist 
after program memory. This insures that these tables will 
reside in built-in display driver RAM, rather than some memory 
which may be removed. 


The configuration buffer area is the beginning of non-fixed memory. 
That is, while its starting location is fixed (first buffer starts 
at address CONFSI), its ending location is not. Configuration 
buffers are maintained as a linked list whose end is identified 
with a zero byte. Each buffer has a 5-nibble header consisting of: 


Buffer ID First 2 nibbles 
Size field 3 nibbles 
This is the size of the data field only. 


CONFST ~—> brewer ene ew ewww + 
| Buffer ID | 2 nibbles 


ae ee eee ee +--+ 


| Size Field | 3 nibbles 


+--+ 


-> [00] 


+--+ 
The header is followed by the data field whose size has been 


specified in the size field above. Immediately following the data 
field is either the next buffer ID or a zero-byte identifying the 
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end of the buffer chain. 


The contents of the buffers are discussed in the "Configuration 
Buffer" section in the "Memory Structure" chapter. 


2.6 Special Role of High Two Pages in Memory 


Provision has been made for allowing devices to be hard-configured 
in address space without fear that the configuration code will 
soft-configure something over them. At configuration time, the 
code examines addresses EOOOOQ-EOOOF. If any of those eight bytes 
ls non-zero, the configuration code will NOT configure anything at 
or above address E0000. So if a hard-configured device resides 
there, the space from EQQO0-FFFFF is reserved and is not available 
for soft-configured devices. The only time that space may be used 
is DURING the execution of the configuration code, when it may be 
needed temporarily for "garbage dump”. 


2.6.1 Producing a Hard-Configured ROM at E0000 


In certain cases it is desirable to produce a ROM which is 
configured to a fixed location in the HP-71 address’ space. 
Hard-configuration is a mask-programmed option which is selected at 
mask-generation time for the ROM chip. This is because some 
applications simply cannot be soft-configured. For example, the 
Debugger ROM must be hard-configured so it will be immune to the 
configuration code. 


Any application which must be hard-configured should either reside 
at E0000 or reside above E0000 and have something else plugged in 
which resides at E0000. The presence of some device at £0000 is 
necessary to insure that the space above E0000 will not be 
configured over. 


2.6.2 Dangers of Hard-Configuring ROMS 


There are certain disadvantages to hard-configuring a ROM or other 
device. 


2.6.2.1 Bus Contention 


Two devices hard-configured to the same address cannot be plugged 
in at the same time. Otherwise they will both respond to a READ 
request at the same time, each contending for use of the bus. This 
may be electrically harmful to the computer. It will certainly 
produce useless data, since the results from a _bus-contention 
situation cannot be predicted. 
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2.6.2.2 Invisible Plug-ins 


Aside from noticing that a hard-configured device is there, the 
operating system will not do anything with the device. Because the 
device is not soft-configured and therefore has no ID, the 
operating system has no way of knowing what type of device it is, 
its size, etc. Its address and its existence will not be recorded 
in any tables. To use it, there must be some LEXfile around (in a 
soft-configured device or in main memory) which expects it to be 
around and knows how to use it. 


If, for example, an alternate operating system is written and 
resides in a ROM hard-configured to E0000, there must also be some 
LEXfile around which will provide the keyword to give control to 
that operating system. 


2.7 Location of Future System ROMs. 


Two possible schemes may be used if the operating system needs to 
be expanded. 


2.7.1 Soft-Configured ROM 


Operating system enhancements might be contained in a 
soft-configured ROM, possibly ina LEXfile. This method would be 
appropriate for many conceivable enharicements. The disadvantages 
are that the hard-configured part of the operating system would 
have to expend some effort to locate the soft-configured part, and 
there is no guarantee that the soft-configured part will be 
configured if many devices are plugged in. 


2.7.2 Fifth ROM at F8000. 


The address space from F8000 to FFFFF might be used to contain a 
fifth operating system ROM. This would make it unavailable to 
hard-configured ROMs at E0000 and would require some change to the 
configuration code. This space is temporarily used during 
configuration as a "garbage dump" area, but nothing is left 
configured in the garbage dump area after configuration is done. 
This means that the configuration code itself certainly could not 
reside in this fifth ROM. 
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2.8 Configuration “Garbage Dump” 


A definition for a term used in this section: Garbage Dump. During 
the execution of the configuration code, some plug-ins may be found 
for which there is no room to configure. Because of the operation 
of the daisy-chain (a device must be configured before the 
following device can be configured), it is sometimes necessary to 
configure such a device “out of the way" so devices after it on the 
daisy chain can be configured. Such "garbage" devices are 
configured to end at FFFFF, and to start at whatever location ends 
them at FFFFF. In other words, a "garbage" 16-kByte ROM would be 
temporarily configured at F8000. All such devices are unconfigured 
before the termination of the configuration code. This is referred 
to throughout this section as “Garbage Dump." 
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me a we we a a a ew we ee we ww we we ww ww we we we we we we we we ee 


ewe me we ae ee ew ee ew wwe we mw ewe ee we we oe we ee oe 


| | MEMORY STRUCTURE 


3.1 Operating System ROM 


The operating 


system is 


contained in 
hard-configured in the address range 00000-1FFFF. 


| | 

| CHAPTER 3 | 

| | 

en nn ee ee + 

four 16K-byte ROMs 
Volume III of 


this document provides a source code listing of all the operating 
system modules that fill this address space. 


3.2 Memory Mapped I/0 and Display RAM 


——— ae om 


2E100 
2E101 
2E102 
2E104 
2E160 
2E1F8 
CEFF 
2E200 


2E260 
2E2F8 
2E2FF 
2E300 
2E34C 
2E34C 
2E34E 
2E350 


2E3F8 
2ESFE 
CESFF 


Memory Size 


Comment 


* * * Display driver addresses 
* 


ANNAD1 
ANN1.5 
ANNAD2 
DD3ST 

DD3END 
TIMER3 
DD3CTL 
DD2ST 


DD2END 
TIMER2 
DD2CTL 
DD1ST 

DDIEND 
ANNAD3 
ANNAD4 
ROUDVR 


TIMER1 
DCONTR 
DDACTL 


1 
1 
2 
#2E160-* 
#2E1F8-* 
#2E1FF-* 


1 
#2E260-* 


#2E2F8-* 
#2EQFF-* 
zi 

#2E34C-* 


2 
2 
#2E3F8-* 


#2E3FE-* 
#2E3FF-* 
#2F400-* 


ond 


Annunciator column 1 


Annunciator column 2 

Start of display driver 3 
End of display driver 3 
Timer 3 

Display driver 3 control nib 
Start of display drive 


End of display driver 2 
Timer 2 

Display driver 2 control nib 
Start of display driver 

End of display driver 1 
Annunciator column 3 
Annunciator column 4 

Row Drivers 


Timer 1 
Display contrast nibble 
Display driver 1 control nib 
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3.2.1 Display Driver Addresses 


The HP-71 display contains two columns of annunciators on the left 
followed by 132 columns of dots and two more columns of 
anminciators. 


The columns are addressed as follows: 


FHF HINDI EIHEHIH HE NEI HHRHHHHHHE HEHEHE 


ae SLAVE DISPLAY DRIVER II Ree 
JHIBITIHIIIEIIII HII EH IHG HHI HEHEHE EHH HHE 


Leftmost column of annunciators 


ANNAD1 (2E100) -- Bits 0-2 not connected 
(--- -- Bit 3 
ANN1.5 (2E101) AC -- Bit 4 
USER -- Bit 5 
RAD -- Bit 6 
-- Bit 7 not connected 


Adjacent column of annunciators 


ANNAD2 (2E102) -- Bits 0-1 not connected 
f -- Bit 2 
2 == Bit-3 
BAT -- Bit 4 


-- Bits 5-7 not connected 


DD3ST (2E104) Columns 0-45 (46 Columns) 
DD3END (2E15F) 


TIMER3 (2E1F8}) Timer (least sig. nib (LSB) at lowest address) 
(6 nibbles) 


DDSCIL (2E1FF) Status Nibble: 


WRITE READ 
LSB 0 -- RAM RAM 
1 -- RAM RAM 


DP 
MSB 3 -- Enable Timer 


3-2 


DD2ST 
DD2ZEND 
TIMER2 


DD2cTL 


DD1sT 
DD1END 


ANNAD3 


ANNAD4 


ROWDVR 


TIMER1 


DD1ICTL 
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KKK HEHE KK HER HIE KEKE KEE KH HK HEHE HEH 


KEES 


SLAVE DISPLAY DRIVER I HREE 


EREKEEEEKEEKERERE KEKE EE EREEEEEREEEEREEREEEEEERE 


(2E200) 
(2E260) 


(2E2QF8) 


(2E2FF) 


Columns 46-93 (48 Columns) 


Timer (least sig. nib at lowest address) 


(6 nibbles) 
Status Nibble: 
WRITE READ 
LSB 0 -- RAM RAM 
1 -- RAM RAM 
2-- 
MSB 3 -- Enable Timer 


FEKE KRHA EEE EHH EK EK HHH HEHEHE HH 


HEKH 


MASTER DISPLAY DRIVER HREE 


KEKKKEKEKKEEREKEKREREE KEE KKK KEEREEE EER EEE 


(2E300) 
(2E34C) 


(2E34C) 


(2E34E) 


(2E350) 


(2E3F8) 


(2E3FF) 


Columns 94-131 (38 Columns) 


Right column of annunciators 
-- Bits 0-2 not connected 
-- Bit 3 
-- Bit 4 

Bit 5 

-- Bit 6 

-- Bit 7 


WM Fr Oo 
' 
t 


Rightmost column of annunciators 
-- Bits 0-2 not connected 


((*)) -- Bit 3 
---> -- Bit 4 
PRGM -- Bit 5 


SUSP -- Bit 6 
CALC -- Bit 7 


Row Lines (16 Nibbles). Should be set 
by software as follows: 8001400220041008 


Timer (least sig. nib at lowest address) 
(6 nibbles) 


Display Control Nibble: 
WRITE READ 
LSB 0 -- Display On Same 
1 -- Display Blink Same 
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329 


2F400 
2F410 
2F420 
2F430 


2F438 
2F43C 
2F441 
2F442 
2F442 
2F443 
2F444 
2F 462 
2F462 
2F463 
2F464 
2F465 
2F466 
2F467 
2F468 
2F469 
2F46A 
2F46B 
2F46C 
2F46D 
2F46E 
2F46F 


2F470 


2 -- Display Test Very Low Bat 
MSB 3 -- Enable Timer Low Bat 


System RAM 


Name Memory Size Comment 


* * * Start of interrupt RAM 
*% 


INTR4 16 (R4 and DO) 
INTA 16 (A reg) 

INTIB 16 (B reg) 

INIM 8 (Misc stuff) 
% 


* INIM is mode-Pointer-Carry-Return stack 
% 


* * * End of interrupt RAM 


% 

CMOSTV EQU #168F Value for CMOS test word 
CMOSTU 4 CMOS test word 

VECTOR 5 Interrupt vector 
ATNDIS 1 Attention disable flag 
OFFFLG 

ATNFLG 1 Attention key hit flag 
KEYPTR 1 Key buffer pointer 
KEYBUF 15*2 Key buffer 

KEYSAV (LSB = Bottom Row) 
KCOLD 1 14th column keymap 
KCOLC 1 13th 

KCOLB 1 12th 

KCOLA 1 11th 

KCOLS 1 10th 

KCOL8 1 9th 

KCOL7 ak 8th 

KCOL6 1 7th 

KCOL5 £ 6th 

KCOL4 1 5th 

KCOL3 1 4th 

KCOL2 1 3rd 

KCOL1 1 end 

KCOLO 1 ist 

DISINT 1 Interrupt ignore flag 


used in keyscan 
*% 


* Pseudo-device Display Driver Memory 
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2F471i 
2F473 
2F475 
2F47B 
2F4a7C 
2FS7E 
2F480 
2F540 
2F540 


2F558 
2F55D 
2eF55D 
2eF562 
2F567 
2F56C 
2F571 
2F571 
2F576 
2F576 
2F57B 
2F580 
2F585 


2F58A 


2F58F 


2F594 
2F599 


2F599 
2F599 
2F599 


2F59E 
2F59E 
2F59E 
2F5A3 
2F5A3 
2F5A8 
2FSAD 
2F5B2 


* 


WINDST 
WINDLN 
DSPSTA 
ESCSTA 
FIRSTC 
CURSOR 
DSPBES 
DSPBFE 
DSPMSK 
* 


NMP ANA 


2* 96 


96/4 


Window start 

Window len 

User status save, Dsp status 
Escape status 

Buffer position of 1st char 

Buffer position of cur 

96 char buffer (2 nibs/char) 


96 bits (4 bits/nibd) 


* System Pointer Allocations 
% 


MAINST 
UPDIST 
CURRST 
PRGMST 
PRGMEN 
CURREN 
IOBFST 
MAINEN 
IOBFEN 
CLCBFR 
RENBFR 
RAUBFR 
CLCSTK 
* 


* 
SYSEN 
# 
% 
% 
OUTBS 
x 


AVMEMS 
UPD1EN 
% 


TASTK 
MIHSTK 


5 


nn Amnon on 


aN on un 


on 


Aono 


Main Program Memory Start 
Start of Update Addresses #1 
Current File Start 

Current Program Start 
Current Program End 

Current File End 

Start of System buffers 
Main Program Memory End 

End of System buffers 

Calc Mode Pointers 


Calc Stack token stream start 
SYSEN , OUTBS ,AVMEMS collapsed 
here at end of CALC mode 

End of RAM used by System 
OUTBS and AVMEMS collapsed 
here at end of Parse, 
Decompile, TRANSFORM 

Output Buffer Start 
Output Start for Parse/Decomp 

Available Memory Start 

End of Update Addresses #1 


Arithmetic Stack 
End of Available Memory 
(AVMEME collapsed to SAVST 
after statement ex 
Save Area Stack Pointer 


FOR/NEXT Stack 


GOSUB Stack 

Active Variable Space 
CALL Stack 

End of Memory 
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eF5Rr 
eF5BE 
2F5BE 


CF674 
eF674 
2cF679 
eF67E 
2f683 
2F688 
2F68D 
eF692 
oF 697 
er69C 
eF6AL 


| & 


2F6A6 
2F6AE 
cF6B6 


2F6BE 
eF6C1 
2F6C6 
2F6CB 
ZEOCrE 
2F6D4 
2F6D4 


2F6D9 
2F6E9 
eF6FS 
2F6F9 
2FO6FA 
2F6FB 
CF6EFC 


2F6FD 


* Variable List Pointers 
¥ 


PRMPTR 7 Parameter Chain Pointer 

CHNLST Variable Chain Pointer List 
26*7 26 Chains (7 nibs/chain) 

* 

* The following pointers are position dependent 

% 

* PCADDR through TMADR3 adjusted by RFADJ+ 

* PCADDR through DATPTR saved by CALL 

* CNIADR through TMADR3 zeroed by CLRSTK/CLPSTK 

¥ 

UPD2ST Start of Update Addresses #2 

DSPCHX 5 Pointer to external display 

PCADDR 5 Program Counter Stmt Length 

CNTADR 5 Continue Address 

ERRSUB 5 ON ERROR-GOSUB Return Address 

ERRADR 5 ON ERROR Statement Address 

ONINTR 5 ON INIRPT Statement Address 

DATPTR 5 DATA Statement Pointer 

TMRAD1 5 ON TIMER#1 Statement Address 

TMRAD2 5 ON TIMER#2 Statement Address 

TMRAD3 5 ON TIMER#3 Statement Address 

UPD2EN End of Update Addresses #2 

% 


* The following Timer Intervals are position dependent 


* with TMRAD1 - TMRAD3 
* 


TMRIN1 8 TIMER#1 Interval 

TMRIN2 8 TIMER#2 Interval 

TMRIN3 8 TIMER#3 Interval 

% 

STSAVE 3 Status saved during Expr Exec 
LDCSPC 5 Addr of space after line # 
INBS 5 Input buffer start 

AUTINC 4 increment value for AUTO 
LEXPTR 5 Temporary storage for RESPIR 
CMDPTR Command Stack pointer 

INADDR 5 Stmt Len ptr: Parse/Decomp 

* 

SYSFLG 16 System flags 

FLGREG 16 User flags 

TRPREG IEEE exception traps 

INXNIB 1 Inexact result trap 

UNFENIB 1 Underflow trap 

OVENIB i Overflow trap 

DVZNIB 1 Divide by zero trap 

IVLNIB 1 Invalid result trap 


* 


* Random Number Seed 


* 
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2F6FE RNSEED 15 
% 


* Alarn Clock System RAM 
* ! 


2F70D NXTIRQ 12 Time of next SREQ 
2F7139 ALRM1 12 ON TIMER #1 
2F725 ALRM2 12 ON TIMER #2 
2F731 ALRM3 12 ON TIMER #3 
2F73D ALRM4 12 Time of timeout 
2F749 ALRM5 12 Time of WAIT expiration 
2F755 ALRM6 12 Time external alarm expires 
2F761 PNDALM 2 Bitmap of pending alarms 
% 


* Storage needed for accuracy factor stuff 
# 


2F763 TIMOFS 12 Time error offset 
OF76F TIMLST 12 Time last set 
2F77B TIMLAF 12 Time of last AF correction 
2F787 TIMAF 6 Accuracy factor 
¥ 
2F78D IS-TBL Table of "IS" assignments 
2F78D IS-DSP 7 
2F794 IS-PRT 7 
2F79B IS-INP 7 
7 


CF7A2 I1S-PLT 
# 


2F7A9 MBOX* 3 HP-IL Mailbox pointer 

2F7AC LOOPST 1 HP-IL loop status 

2F7AD STATAR 3 STATISITICAL ARRAY NAME 

2F7BO TRACEM 1 TRACE MODE (0,2,4,6) 

2F7B1i DSPSET J Display device set up on HPIL 
% 

2F7B2 LOCKUD 8*2 Password 
¥ 

2F7C2 RESREG 34 Result register 
% 


% 

* ERR# through ERRL# are position dependent 

¥ 
2F7E4 ERR# 4 Execution Error Number 
2F7E8 CURRL 4 Current Line# Referenced 
2F7EC ERRL# 4 Execution Error Line# 

* 


* Snapshot Buffer and Return Stack Save Buffer 
* 


2F7FO SNAPBF 16+ 16+5+5+5 Snapshot Buffer 
2F81F RSTKBEp 1 Return Stack Save Buffer Ptr 
2F820 RSTKBF 16*5 Return Stack Save Buffer 
¥ 
2F870 MLFFLG 1 Multi-Line Function FLag 
% 
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2F871 
F871 
F876 
ers7B 
2 F880 


2F881 
2F881 
2F886 
2F88B 
2F890 


2F891 
2F896 


2F89B 
2F89B 
2F8A0 
2F8A5 
2FSAA 


2F8AB 
eF8AB 
2F8B0 
2F8B5 
2FSBA 


2FS8BB 
2F8C0 


2F8c5 


2F901 
2F901 
2F941 
2F946 
2F948 
2FS4A 
2F94B 
2F94D 
eF94F 
2F951 
2F956 
2F 958 
2cF35A 
2F95B 
2F961 
2F966 


* TRANSFORM Scratch RAM 


* 
TREMBF 
¥ 
* 


SCRTCH 
SCRSTO 
SCREXO 
SCROLT 
DELAYT 
NEEDSC 
PRMCNT 
DPOS 

DWIDTH 
SCREX1 
PPOS 

PWIDTH 
EOLLEN 
EOLSTR 
SCREX2 
SCRPTR 


em oO Cn OF 


an me OTE uo 


me OF UT OU 


mom ol 


5 
5 


60 


PPO SO OU RR 


* 
pony 
nH 


WwW 


Statement scratch RAM 


Function scratch RAM 


Used by TRANSFORM command 


Scratch RAM 

Scratch stack (Mantissas & s 
Scratch stack exponent 
Character scroll timer 
Display timeout value 
Scroll mode needed 

CALL parameter count 
Current DISP column 

DISP width 

Scratch stack exponent 1 
Current PRINT column 

PRINT width 

Length of ENDLINE stri 
ENDLINE string (3 chars max 
Scratch stack exponent 2 
Scratch stack pointer 








HP-71 Software IDS - Detailed Design Description 
Memory Structure 


2F967 DEFADR 8 Key definition info 

2FO6F CHN#SV 2 Channel # save 

2F971 SCREX3 5 Scratch stack exponent 3 
% 

2F976 MAXCMD 4 # of Command Stack entries 
* 

2F977 CSPEED 5 Clock speed (Hz/16) 
* 


* The following 10 nibbles are used by HP-IL ROM 
*% 


2F97TC ERRLCH 1 Error latch 
2F97D TERCHR 2 Terminating char for ENTER 
CFS97F HPSCRH 7 HP-IL Reserved. 

(INTPND, ICAUSE, IMASK, LSTDDC) 


2F986 RESERV 48*2 Reserved Memory. 
x 
* Configuration table start 
¥ 


2F9E6 CONFST 


3.3.1 Interrupt RAM (INTR4 - VECTOR, DISINT) 


The interrupt routine uses 56 nibbles of RAM (INTR4, INTA, INTB, 
INTM) to save the contents of A(W}, B(W), C(W), DO, P, Carry, 
Hex/Dec Mode. 


The interrupt routine cnecks the RAM address VECTOR to see if an 
alternate interrupt handler has been enabled. Before processing 
any interrupt, four nibbles at CMOSTWU (CMOS test word) are checked 
to verify that RAM is likely not corrupt. (The CMOS test word is 
immediately next to the VECTOR address since it is unlikely to 
accidentally change one address without changing the other.) 


If the 5 nibble value at VECTOR is zero then normal interrupt 
processing is performed. 


The nibble at DISINI is used to cause exactly one interrupt to be 
ignored. If the interrupt routine sees this nibble set to a 
non-zero value it will return immediately without any processing 
except to check for a "Module Pulled" interrupt and to zero this 
nibble. This is used during keyscan to side-step the interrupt 
that may result when the output register has been used to check 
individual key columns while doing synchronous ([i.e., not from 
interrupt routine) keyscans. 
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3.3.2 Keyboard Buffer/Flags (ATNDIS - KEYSAV) 


The keyboard system has a fifteen key buffer which is preceeded by 
a nibble indicating how many keys are in the buffer. This buffer 
is treated as a FIFO where the oldest key in the buffer is at the 
lowest address in the buffer (ie. pointed to by KEYBUF). The 
pointer nibble is named KEYPTR. 


In addition to the key buffer, a “bit map" of which keys were down 
during the latest keyscan is maintained in the fourteen nibbles 
starting at KEYSAV. There are 4 rows of keys on the keyboard and 
each nibble of the KEYSAV buffer holds 4 bits representing the 
state of aparticular key column. The least sig. bit of each 
nibble represents the key in the bottom row of that column and the 
most sig. bit represents the key in the top row of that column. 
The 14th key column is pointed to by KEYSAV. KEYSAV+13 points to 
the ist key column. 


The nibble at ATNFLG is decremented each time the kKeyscan routine 
finds the attention key down. It will not however be decremented 
from i to 0 since this would hide the fact that the key was ever 
pressed. The intention is that this flag can be used both as a 
flag that the attention key has been pressed and as a convienient 
way to tell if it has been pressed more than once. 


The nibble at ATNDIS is a special location that if non-zero will 
cause the keyscan routine to treat the attention key as it would 
any other key. The attention key normally causes the key buffer to 
be flushed and the AINFLG flag to be set, as well as setting the 
Except ($12) global status bit. 


3.3.3  Pseudo-Device Display Driver (WINDST - DSPMSK) 


The display driver uses a buffer of 96 consecutive bytes to hold 
the display buffer (DSPBFS). Each of these bytes holds one display 
character. 


The display routines use several additional bytes to describe how 
the LCD should look. The byte at WINDST is the first LCD character 
position that should be used to display the contents of the buffer. 
The next byte (WINDLN) says how many LCD character positions 
(starting at WINDSIT) to use to represent the buffer. The first 
character of the buffer that should be put into the display is held 
in the byte at FIRSTC. The position of the cursor in the display 
is held in the byte at CURSOR. All of these bytes are represented 
base 0 (i.e. value 0 is the lowest possible value). 


Fete spiencesnincinnusiumSnanenionahmsetciceutoedtoetsteaetisauheeasieecedne 
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In addition to these bytes, another six nibbles are used to save 
Status bits. The first three nibbles at DSPSTA are used to store 
the calling routines status bits while in the various display 
routines. The next three nibbles are used to hold status bits 
relevant to the display routines. See the display routines’ 
documentation for a more complete description of these bits. 


One nibble (ESCSTA) is used to keep track of the escape status of 
the display routines. This nibble indicates if the routines are in 
the middle of an escape sequence. 


Following the display buffer is an address called DSPMSK. The 24 
nibbles at this address contain 24*4 (96) bits, one of which 
corresponds to each of the bytes in the display buffer. Tne lowest 
address nibble maps to the highest addressed 4 bytes in the buffer 
and the nibble at DSPMSK+23 corresponds to the first 4 bytes in the 
display buffer. The most sig. bit of each nibble corresponds to 
the lowest addressed byte of the group of 4. These bits determine 
whether a particular character in the buffer is a protected, 
unreadable character. As characters are sent to the display this 
bit will be set for the character if the cursor is off. This makes 
the character unreadable and protects it so that the cursor cannot 
be positioned over it. 


3711 
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3.3.4 User Memory Pointers (MAINST - RAMEND) 


USER MEMORY POINTERS 


< Low> Poste mes HS Hee ees e—SeS= + 
| System RAM | 
4-2 ------ +--+ +--+ + 
| Reserved RAM | 
CONFST = +---------------------- + 
| Configuration Buffer | : 
MAINST --> +---------~------------- + <- MAIN File Chain 
| | Start 
| File | 
| | 
+--- ee ee + 
| a | 
CURRST --> +---------------------- + <- Current File St 
PRGMST --> | | <- Current Program 
| Current File | Start 
PRGMEN --> | | <- Current Program 
| | End 
CURREN --> ¢---~------------<------ + <- Current File End 
| | 
| File | 
| | 
$--~-------- + - + 
| eis | 
MAINEN = IOBFST --> +---------------------- + <- System Buffer 
| System Buffers | Start 
IOBFEN = CLCBFR --> +---------------~------ + <- System Buffer 
| Command Stack | End 
|l- - -- - - -- - ee | 
| CALC Refined Buffer | 
RENBFR --> +----------- ~---------- + 
| CALC Left Raw Buffer | 
RAUBFR --> +----------~------------ - 
| CALC Right Raw Buffer| 
CLCSTK --> +---------------------- + 
| CALC Token Stream | 
SYSEN --> +---------------------- + 
| Temp Input Buffer | 
QUIBS “$8 /4eSaaesesesseenesaoe=ss + <- Output Buffer 
Output Buffer | Start 
AVMEMS == d0t5-s2-5 eo4---eSes--e- ss + <~- Available Memory 
Start 


Available Memory | 
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<Low> | | 
| : “| 
| Available Memory | | 
MIHSTK = AVMEME --> +---------------------- + <- Available Memory 

| . | End 
| Math Stack | | 

FORSTIK --> +---------------------- + --4 
FOR/NEXT Stack | | 

GSBSTK --> #¢----~----------------- + | Current 
| GOSUB Stack | -~->Environment 

ACTIVE --> +---------------------- + | 
| Active Variables | | 

CALSTIK --> +--~-------------------- + -<-+ 
| Environment | | 
| Information Blocks | | 
Heeeeee ee eeee tee cecaty. 14 
| FOR/NEXT Stack | | Prior 
tenon ene ee += - +  -->Environment 
| GOSUB Stack i 
$ ow eee + 
| Variables | | 

<High> RAMEND --> ¢---------------------- + --4+ 


From Low to High Memory: 


PRGMST 


PRGMEN 


CURREN 


CLCBFR 
RENBFR 


RAUBER 


ee re ee mee ee a ee a a ee ee ee 


MAIN File Chain Start = Configuration Buffers End 
Points to the first file header in the MAIN file chain 


Current File Start 
Points to the first nibble of the current file header 


Current Program or Subprogram Start 
Points to first nibble of current program or subprogram 


Current Program or Subprogram End 
Points past last nibble of current program or subprogram 


Current File End 
Points past last nibble of current file 


MAIN File Chain End = System Buffer Start (IOBFST) 
Points past 00 byte at end of MAIN file chain 


CALC Mode Buffer Start * System Buffer End ( IOBFEN} 
CALC Mode Refined Buffer 


CALC Mode Raw Buffer 


~ 


s713 


| 


ements ener pies kabel cas 


re 
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CLCSTK - CALC Mode Token Stack 
SYSEN - System RAM End 


OUTBS - Output Buffer Start 


AVMEMS - Available Memory Start Output Buffer End 


N 


AVMEME - Available Memory End Top of Math Stack (MTHSTK ) 


" 


FORSTK - Top FOR/NEXT Stack Top of Save Stack (SAVSTK) 


GSBSTIK - Top GOSUB Stack 


Bottom of FOR/NEXT Stack 


ACTIVE - Active Variable Pointer 


" 


Bottom of GOSUB Stack 


CALSTK - CALL Stack 


u 


Bottom of Active Variables 


RAMEND - User RAM End Bottom of CALL Stack 


i 


3.3.5 Parameter Chain Pointer (PRMPTR} 


The parameters of a user-defined function are pointed to by PRMPTR. 
The first two nibbles of PRMPTR is the parameter count: 
Parameter count Meaning 


ee ee mh re ee ee ee re er ee oe ee me ee tee meee ee ome re ee re mn ner eee te ee re ree ee re me we ae ter ee te ee ee ee ee ee ee ee 


00 Currently is not executing an user-defined 
function 
01-OF Currently is executing an user-defined 


function, the number of the parameters of 
the user-defined function = count -1 


five nibbles of the PRMPTR i 
ers, dhe parameters of 
fashion similar to the 3 
S$ are stored in the same chain 


vc 
ct 
et 
om 
} 
Q 
hh ry 
ay 
m 
3 
@ 
s 
wo 
ct 
ret 
Hy 
g 
oO 


3.3.6 Variable Chain Pointer List (CHNLST 


Nee 


Beginning at CHNLST are 26 seven-nibble ek pointers; 
inter is associated with a list of currently-existing variab 
jable is put into a particular list accerding to the lett 
iphabet which its name contains. For example, variable 
R7, Rg. and R3$ are all in the same iist. See the secti 
fariables for details on variable list construction. A chain 
pointer has two parts: avariable count and an address. The 
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variable count is a two-nibble quantity telling how many variables 


exist 


in the 


chain at that time. The address field gives the 


absolute address of the start of the variable chain. 


Seek 


The 


following addresses 
whenever 


Statement/Program Execute RAM (DSPCHX-TMRIN3) 


( DSPCHX 
memory moves within system 


through TMRAD3) 
or user RAM. 


are updated 
The symbolic 


names: UPD2ST and UPDZEN indicate this range. 


DSPCHX 


PCADDR 


CNTADR 


ERRSUB 


ERRADR 


ONINTR 


DATPTR 


TMRAD1 
TMRAD3 


3.3.8 


TMRIN1 
TMRIN3 


STSAVE 


LDCSPC 


Zero if no external character display device is active. 
Otherwise, the contents are used as an address for an 
external display handler for each character sent via 
DSPCHA routine. 


Pointer to statement length byte of 
executing. 


statement currently 


Continue Address of currently halted program. 


Return address of ON ERROR GOSUB statement. Prevents 
infinite loop if error within ON ERROR GOSUB execute 


Address within ON ERROR statement pointing at GOTO or 
GOSUB. Remainder of statement is executed when an error 
occurs within a program. 


Address within ON INTERUPT (HP-IL) statement pointing at 
GOTO or GOSUB. Remainder of statement is executed when an 
interrupt occurs. 


DATA statement READ pointer. 
ON TIMER statement addresses for Timer#1-3, respectively. 


Points at GOTO or GOSUB within ON TIMER statement. When 
timer expires, remainder of statement is executed. 


Miscellaneous BASIC RAM (STSAVE - INADDR) 


- ON TIMER statement timer interval for Timer#1-3, 


respectively. Timer is reactivated for the corresponding 
timer interval when an ON TIMER...GOTO expires, or on 
return from an ON TIMER...GOSUB. 

Saved status bits during Expression Execute (EXPEXC). 


Cursor position for decompile of BASIC program lines and 
user-defined keys. 
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INBS Input Buffer Start. A floating pointer indicating the 
Start of the input buffer being parsed. Set at the 
beginning of Line Parse. May point to the Command Stack, 
Start-up Buffer, TRANSFORM Input Buffer or Direct Execute 
Key Buffer. 


AUTINC AUTO increment value for AUTO command. This RAM location 
doubles as the AUTO mode flag: If zero, then not in AUTO 
mode. 


LEXPTR Position of Input pointer prior to last NIOKEN call. Used 
in statement parse. 


CMDPTR 

INADDR Pointer to statement length byte for statement currently 
being parsed or decompiled. (Also used for Command Stack 
pointer - CMDPTR) 


3.3.9 System and User Flags (SYSFLG - FLGREG) 


There are 64 user flags (numbered 0-63) and 64 system flags 
(numbered -64 to -1). Within each nibble, the lowest numbered flag 
is in the least significant bit. These flags are stored in 128 
consecutive bits starting at address SYSFLG: 


<Low > +----- + 
SYSFLG --> | -1 | System Flags 

+----- + 

| -2 | 

+----- + 

+----- + 

| -64 | 

+----- + 
FLGREG --> | 0 | User Flags 

+----- + 

| 1 | 

4+----- + 

+----- + 

| 63 | 

<High> iene oe + 


The user can set and clear all user flags and those system flags 
numbered -1 to -32. The user may test the status of all user and 
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system flags. 


Refer to the “Table Formats" chapter for a summary of flag 
assignments. 


3.3.10 Traps (INXNIB - IVLNIB) 


There are 5 math exception traps stored in 5 consecutive nibbles 
starting at address TRPREG: 


<Low> Panes + 
TRPREG = INXNIB --> | INX | 

oo + 

UNFNIB --> | UNF | 

$n - +++ + 

OVFNIB --> | OVF | 

+-~---- + 

DVZNIB --> | DVZ | 

$e + 

IVLNIB --> {| IVL | 

<High> pone + 


Refer to the “Table Formats" chapter for details on trap settings. 


3.3.11 Random Number Seed (RNSEED) 
The current random mumber seed (updated by RANDOMIZE and used by 


RND) is stored in 15 consecutive nibbles starting at address 
RNSEED. 


3.3.12 Alarm Clock System RAM (NXTIRQ - TIMAF) 


The foliowing RAM is used by the internal clock systen: 


Label Size(nibs} Function 

NXTIRGQ 12 Time of next clock service request 
&LRM1 ie Time of next timer#1 request 
ALRM2 12 Time of next timer#2 request 
ALRM3 12 Time of next timer#3 request 
ALRM4 12 Time of 10-minute timeout 
&LRM5 12 Time of end of pause 

ALRME6 12 Time of external alarm 
PNDALM 2 Bitmap of pending alarms 
TIMOFS 12 Time error offset 

TIMLST le Time of last EXACT 

TIMLAF 12 Time of last AF correction 
TIMAF 8) Accuracy factor 


coe wd 


ac sma 
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3.3.13 "IS" Table Assignments (1S-TBL) 


This table holds in.c.rs.ien defining the current state of DISPLAY 
TS, PRINTER 15, Key: lARC 1S and PLOTTER IS. The destination of 


each of these assig.sienis can theoretically be any HP-IL device or 
“he LCD display; leccver there are some combinations that don’t 
mare sense and snould not be allowed. There is a 7 nibble table 
eniry for each of these devices. Each entry has the following 
:ormat and definition: 


Nib 3 
bit 3. bits 2-0 
X 0 Address specified 
Nibs 2-0: Address, loop# 
or FFF if not known 
Nibs 6-4: Address, loop# 


X i Type specified (loop 0) 
X 2 i (loop 1) 
X 3 (loop 2} 


Nibs 2-0: Address, loop# 

or FFF if not known 
Nib 6: Sequence # 
Nibs 5-4: Accessory id 

x 4 10 buffer for device ID/Volume label 

Nibds 2-0: Address, loop# 

or FFF if not known 
Nibds 6-4: Buffer # 


X 5 Multiple assign buffer 
Nibs 2-0: FFF 
Nibs 6-4: Buffer # 
K 6 Device ID specified 
Nibs 2-0: Address, loop# 
Nits 6-4: sect # 
i 7 Unassigned or not HPIL 
Nibs 2-0: "FFF if not assigned or 


Fxx if not HPIL {where xx 
is not FF} 


Nibs 6-4: FFF if net a but 
not defined if not HPIL 
X = 1 if device OFFed, 9 otherwise 
3.3.14 HP~IL RAM (MBOX, LOOPST , DSPSET) 
MBOX” Used by HPIL ROM as a pointer to its mailbox. Three 


nibbles are multiplied by 16 and added tc 20000 to get 


a 
faa 
oO 


iain tateeneeetteneie edema diearbacocene tas ieheanieemaniceeearenerendane eaten tetaneerae a aT 
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mailbox address. 


LOOPST Used by HPIL ROM to keep track of loop status. 
Bit 3: Device “OFFed". 
Bit 2: Last call to START found HPIL mailbox 
in device mode. 
Bit 1: (Reserved) 
Bit 0: (Reserved) 


DSPSET Used by HPIL ROM to indicate status of display device. 
Bit 3: Display device is set up 
* Following ONLY valid if Bit 3 is TRUE!! 
Bit 2: Display is a HP82163 video interface 
(Retransmit line if insert or delete). 
Bit 1: Display device is line output only (printer) 
Bit 0: Display code was "“OFFed" if 0. 


3.3.15 STAT Array (STATAR), TRACE Mode (TRACEM) 


STATAR Name of the currently selected STAT array 
TRACEM Indicates current TRACE Mode: 


Q = No TRACE 

2 = TRACE FLOW 

4 = TRACE VARS 

6 = TRACE FLOW, TRACE VARS 


3.3.16 LOCK Password (LOCKUD) 


The lockword supplied by the user in the lock command is stored in 
the 16 nibbles starting at LOCKWD. If there is no lockword, these 
16 nibbles are all zeroes. The lockword is not encrypted. 


3.3.17 Result Register (RESREG) 


The result register holds the value of the most recently executed 
numeric expression. This value is updated whenever a numeric value 
is DISPlayed, PRINTed, or stored into a variable. 


3.3.18 Error Number (ERRN) 


The number of the most recent error (ERRN) is stored in RAM 
location ERR#. This location is set to zero at cold start, and 
changed only in the message driver (MFERR*). The message number is 
encoded in four nibbles: abcd, where 

ab = LEX ID# in hex 

cd = message number in hex. 
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3.3.19 Current Line (CURRL) 


The current line number is stored in CURRL, as a four digit decimal 
number. At coldstart, CURRL is set to zero. Editing the current 
BASIC file updates CURRL to the line number being inserted, 
replaced or deleted. Recalling a BASIC program line to the display 
Changes the current line. The FETCH Statment, Cursor Up, Cursor 
Down, Cursor Top, and Cursor Bottom recall a program line. 
Executing an EDIT statement changes the current line to the first 
line of the specified Edit file. A GOTO from the keyboard sets the 
current line to the specified line number or line number containing 
the specified label. 


During program execution, CURRL is not updated until the program is 
halted. If program execution halts due toa PAUSE, STOP, or END 
statement, the line containing the statement becomes the current 
line. If’ the program halts due to an implicit END (the last line 
of the program is reached), CURRL becomes the last line of the 
program. If program execution halts because the ATIN is hit, the 
line containing the next statement to be executed becomes the 
current line. 


3.3.20 Error Line Number (ERRL#) 


The line number of the most recent execution error (ERRL) is stored 
in RAM location ERRL#. This location is set to zero at cold Start, 
and changed only in the message driver (MFERR*) . CURRL is updated 
to the new current line and is also placed in ERRL#; it is a four 
digit decimal number. 


3.3.21 Snapshot Buffer (SNAPBF) 


This area of RAM is used to temporarily hold a snapshot of CPU 
registers A, D, DO, D1, and C({A). It is 47 nibbles in size. For 
details on saving and restoring CPU snapshots, see routines SNAPSV 
and SNAPRS. 


3.3.22 Return Stack Save (RSTKBp,RSTKBF) 


This area of fixed RAM holds up to 16 stack levels from. the 
hardware stack. It is administered as a LIFO (last in, first out) 
circular stack by the routines R<RSTK (saves stack levels) and 
RSTK<R (restores stack levels). The one-nibble pointer, RSTKBp, 
contains an index (0 thru 15) of the next 5-nibble slot available 
for storing a stack level. 
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When a stack level is stored, the pointer is bumped, and it wraps 
around to zero when it passes 15. Conversely, the pointer is 
decremented when a stack level is removed, and the pointer wraps 
around to 15 when it passes 0. Therefore, if 16 levels have been 
stored on the stack, storing a 17th level will overwrite the oldest 
level on the stack. 


Note that these saved stack levels are NOT updated when memory 
moves. Also, these saved stack levels will not necessarily remain 
intact when EXPEXC is called. 


3.3.23  Multi-Line Function Flag (MLFFLG) 


MLFFLG is the multi-Line function flag. ENDDEF statement sets it 
to nonzero. This allows statements to determire if a multi-line 
user-defined function was invoked during expression execute. They 
can then know whether memory could have changed. This flag may 
aiso be set by other functions that may have changed memory. 


To know whether anything could have happened to ‘memory’ during 
expression execution, this nibble should be cleared before calling 
expression execute. If it is set upon return, either a user 
defined function or some other “harsh function has been invoked 
during the expression evaluation. 


3.3.24 Statement, Function Scratch (STMIRO - FUNCD1) 


Some RAM is maintained specifically to ve used as scratch 

during statement and function execution. The 42 nibbles sta 

at SITMTRO are referred to as the statement scratch area, and th 

nibbles immediately following (starting at FUNCRO! constitute the 

function scratch area. 

The latter 42 nibbles are available during function execution, and 
1 4 nibbles are available during statement  emecution 
XM 


+ sf 

m5 Bi aA nie ee POL, WS 
we ee Re aed '' é . Ra Ne ee te a PE 
ad 


tana 


uralliy, the function scratch area will probably be used during 
expression execution. 
Of great importance to users of these scratch sreas is the fact 
that this RAM is Untouched by utility routines, including display 
routines, message routines and the clock system. Thus, these 
scratch areas are often uses for storing things while calling 
particularly disruptive utilities 
The exact layout of the statement and function scratch RAM is as 
follows ibroken down into fields and subfields): 


LABEL #nibbles comment 


soe] 





om 
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ee we ee oe ee oe oe oe oe oe wee we wee ee 


Start of statement scratch 


SIMTRO 16 16-nibble field 
S-RO0-0 5 5~nibble subfield 
S-RO-1 5 5-nibble subfield 
S-RO-2 5 5-nibble subfield 
S-RO-3 1 1-nibble subfield 


| 
| 
| 
| 
| 
STMIR1 16 | 16-nibble field 
| 
| 
| 
| 
| 
| 


S-R1-90 5 5-nibble subfield 
S-Ri-1 5 5-nibble subfield 
S-Ri-2 5 5-~nibble subfield 
S-R1-3 1 i-nibble subfield 
STMT DO 5 5 5-nibble field 
STMTD1i 5 5 5-nibble field 
(total) 42 | 42 End of statement scratch 
Start of function scratch 
FUNCRO 16 | 16-nibble field 
F-RO-O Is 5 5-nibble subfield 
F-RO-1 | § 5-nibblie subfield 
F-RO-2 1 5 5-nibble subfield 
F-RO-3 pb. 2 i-nibble subfield 
FUNCR1 16 | i6-nibble field 
F-R1i-0 oS 5S-nibble subfield 
F-Ri-1 eS B-niobie subfield 
F-R1-2 |; 45 B-nibble subfield 
F~R1-3 be “ay i-nibtle subfield 
FUNCDG Se 5 5-nibble field 
FUNCDL 5 | 5 5-nibble field 
(total) 42 | 42 End of function scratch 


3.3.25 TRANSFORM Scratch RAM (TRFMBF) 


This area of RAM is used during execu 
and is OFF LIMITS to any parse, decompile, o 
related routine. It is 66 nibs in size. 


Ww 
Ww 
fo 
NY 


Scratch RAM (SCRTCH! 


io 
= 


area used for the scratch math stack (below) is also used as a 
general purpose, highly volatile scratch RAM area, labeled SCRICH. 
Th s to be distinguished from Statement and Function Scratch 
(above), which is less volatile. The ALMSRV routine uses part of 
SCRICH RAM to avoid destroying CPU scratch registers. The display 

tines also use it during <CR> and <LF> processing by virtue of 
their calling ALMSRV. Routines which use this space should 
document their exact usage; this is the only fixed-address general 
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purpose scratch space available for utility routines. 


Specifically, the. scratch RAM area consists exactly of the area 
used as the scratch math stack: 69 consecutive nibbles and three 
5-nibble chunks punctuated by 11-nibble chunks which are 
UNAVAILABLE for use as scratch RAM: 


SCRSTO: 69 nibbles (includes SCREX0) 
(unavailable): 11 nibbles 
SCREX1: 5 nibbles 
(unavailable): 11 nibbles 
SCREX2: 5 nibbles 
(unavailable): 11 nibbles 
SCREX3: 5 nibbles 


3.3.27 Scratch Math Stack (SCRSTO - SCREXx) 


The scratch math stack is a four-high stack for split (21-nibble) 
numerical values. The 21-nibble form consists of a sign nibble, a 
15-nibble mantissa, and a five-nibble exponent. The signs and 
Mantissas are stored consecutively in 64 nibbles starting at 
SCRSTO. SCRSTO must reside between XXX00 and XXXOF in the RAM Map. 
Each exponent is stored 64 nibbles higher in memory than its 
corresponding mantissa: 


SCRSTO 
(Low) 
+—-4---------- +-+---------- +-+---------- +—-4---------- + 
+--|S| Mantissa |S] Mantissa |S| Mantissa |S] Mantissa | 
[| +-+---------- 4—-4---------- 4-4+---------+- 4+-4---------- + 
$n ee ee eee + 
| 
tone eee Paani Pewemas poe eee Gc ae aia Paces PeSeiow + | 
| | Exp | | Exp | { Exp | | Exp |<-+ 
4------ t----- 4------ +----- +------ +----- 4-----+- $—----- + 
(High) | | | | 
SCREX3 SCREXK2 SCREX1 SCREXO 


A pointer having possible values 0, 1, 2, or 3 points to the 
current top of the scratch math stack. This pointer is stored in 
the nibble with address SCRPTR. 
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3.3.28 DISP/PRINI RAM (SCROLT - EOLSTR) 


SCROLT Number of 1/32s of a second to delay between scrolling 
characters in the display. Infinity is represented by 
FF. Initialized to 4. 


DELAYT Number of 1/32s of a second to delay between scrolling 
lines in the display. Infinity 1s represented by FF. 
Initialized to 16 (10 hex). 


NEEDSC O if no characters have been sent to display since last 
ENDLINE key, F otherwise. This keeps track of whether 
the display needs to be scrolled by calling SCRLLR. 


DPOS DISPlay position. Used in DISP statements to keep track 
of current position in line. 0 means position 1. 


DWI DTH DISPlay width. Used to limit number of characters output 
on any DISPlay line. Infinity is represented by 0. 
Initialized to 96 (60 hex). 


PPOS PRINT position. Used in PRINT statement to keep track of 
the current position in the line. 0 means position 1. 


PUIDTH PRINI width. Used to limit the number of characters 
output on any PRINT line. Infinity is represented by 0. 
Initialized to 96 (60 hex). 


EOLLEN ENDLINE string length. Number of nibbles in the ENDLINE 
String. Should be 0,2,4,6. Initialized to 4. 


EOLSTR ENDLINE string. Holds up to three characters which are 
sent to PRINTER IS device whenever an end-of-line is 
needed. Initialized to CR/LF. 

3.3.29 CALL Parameter Count (PRMCNT) 

PRMCNI is temporary scratch used by CALL execute to count the 


number of parameters. 


3.3.30 Key Definition Info (DEFADR) 


Eight nibbles of RAM used by the KEYRD subroutine for returning a 
pointer to a key definition. This ram is set by the key read 
routine (KEYRD). The contents DEFADR have the following 
definition: 
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(DEFADR): Length of definition string in bytes (2 nibbles). 
(DEFADR+2): Key type: (1 nibble) 

0 = Single ASCII character. Includes characters 0-31, which 
result from hitting special keys (ENDLN, UP-ARROW, etc.). 

1 = ASCII control character. Must subtract 64 from the 
one-byte definition we are pointing to. These characters 
should be interpreted as text, and should not cause any 
special action in the editor. 


2 = User-defined key--terminating. 

4 = User-defined key--non-terminating. 

6 = User-defined key--immediate execute. 

8-F = Typing aid, with lower 3 bits as follows: 


Bit 0: Parenthesis ("(") needs to be added to string. 

Bit 1: Trailing space needs to be added to string. 

Bit 2: Leading space needs to be added to string. 

(Spaces and parenthesis not included in string length 
field or in definition proper. For example, the f shifted 
4 key returns a definition which points to a 3 character 
string containing "SIN" and has the bit set which indicates 
that a parenthesis needs to be added to get the actual key 
definition ("SIN(").) 

(DEFADR+3): Address of definition text. (5 nibbles) 


3.3.31 Channel Number Save (CHN#SV) 

The CHN#SV is used to hold the channel number currently being 
accessed. Refer to the section on the assign buffer in the "Table 
Formats” chapter for details. 

3.3.32 Number of Command Stack Entries (MAXCMD) 


MAXCMD holds the number of Command Stack entries. 


3.3.33 Clock Speed (CSPEED) 

Each time the system is reconfigured, the clock speed is recomputed 
and stored in CSPEED. The value is the clock speed divided by 16 
(decimal) and stored in Hexadecimal (Hz). 

3.3.34 HP-IL Special RAM (ERRLCH - HPSCRH) 

ERRLCH Used by error routines; set when error occurs. 


TERCHR Terminating character for ENTER and ENTER USING. 


HPSCRH 7 nibbles reserved for HP-IL scratch. 


3-25 











HP-71 Software IDS - Detailed Design Description 
Memory Structure 


3.3.35 Reserved RAM (RESRV) 


96 nibbles (48 bytes) are reserved for 
will be allocated conservatively and 


future use. 





This memory 
through offical channels. 


Refer to the "HP-71 Resource Allocations" chapter for details on 


use of this RAM. 


3.3.36 System RAM Availability 


The following table summarizes which RAM locations may be used by 
the various routines of built-in and external (LEX file) keywords: 


nidbles 

avail. 
SNAPBF 47 
SCRICH §44+4%5 
Statement Scratch 42 
Function Scratch 42 
TREMBF 60 
LDCSPC 5 
STSAVE 3 
LEXPTR 5 


RSTKBF Save Buffer 16*5 
RESERV Resreved RAM *** 


Stmt. Stmt. 
Parse 

Yes Yes 
Yes Yes 
No Yes 
Yes Yes 
No No 
Yes No 
Yes Yes 
No Yes 
Yes Yes 
Ht HEE 


Stnit:** Func. 
Decomp Exec. Exec. 


ee me ee ee 


Yes Yes 
Yes Yes 
Yes No 

Yes Yes 
Yes Yes 
Yes Yes 
Yes No 

Yes Yes 
Yes* Yes 
HH HHH 


* A statement cannot store anything in the RSTKBF area, call 


Expression Execution (EXPEXC), and expect what was saved to 


be intact. 


¥* 


available to function execution. 


In general, any statement execution may use any memory 


*** Reserved RAM may be used only after such usage has been 


registered and authorized by HP. 


See the chapter on 


“HP-71 Resource Allocation" for further information. 


3.4 Configuration Buffer 


The configuration buffers contain three tables, 
memory and I/O devices are configured where. 


contain information on System RAM 


Other Memory (IRAM, ROM, EEPROM, etc.; 
(DROMIB)), and Memory-Mapped 1/0 (HPIL mailbox, etc.; configuration 


table ID = FD). 


The three 


(configuration table ID 


identifying what 


tables 
= FFI. 


configuration table ID = 


FE 
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Each table has a five nibble header. The first byte is the table 
ID (FF, FE or FD); the next three nibbles contain the table length, 
not including the header. The configuration buffer is terminated 
by a zero byte. ° 


A configuration table entry is created in one of the three tables 
for every "sequence". A sequence consists of either: 


1) A single memory-mapped I/O chip, or 


2) One or more consecutive chips with identical ID’s (bits 15-0 of 
ID) on a daisy chain. 


A sequence is ended with: 


1) Chip with different ID (which will be the start of a new 
sequence, obviously). 


2) Chip with bit 18 of ID set (marks end of this sequence). 


3) Chip with bit 19 of ID set (marks end of physical plug-in 
module). 


A table entry conveys the following information: 


Seq Position: Position of this sequence within the module. Since 
most modules have only one sequence, this is usually zero. 


Device #: Position of this module within a consecutive series of 
modules (i.e., modules on same daisy chain}. In the absence of 
a port extender, this will be zero. (The RAMs on the internal 
daisy chain may be grouped into logical modules.) 


Port #: Identifies which daisy chain contains sequence. Port #0 
is internal daisy chain (daisy-in on first chip thereof is tied 
high). Port #n is the daisy chain activated by output register 
bit #(n-1). 


Size: Since size is always a power of two, the size is 
represented internally and on the chip ID as the one’s 


complement of log2(size). Size refers to K-nibbles for memory 
devices and to words (nunks of 16 nibbles) for memory-mapped 
1/0. 


Address: For memory devices, the upper 3 nibbles of the 
configuration address are given (the lower 2 are always zero). 
For memory-mapped I/0, the middle 3 nibbles are given (upper 
nibble is always 1, lower nibble is always 0). 


Device type: Identifies type of memory device or if this is 
memory-mapped I/0 device. The possible values are explained in 
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the system configuration overview. 


Device class: If sequence is memory-mapped I/0, this identifies 
which type of memory-mapped I/0 device this. There is no 
device class for memory devices. 


# Chips in sequence: Identifies how many chips comprise this 
sequence. Kept in the table as (#chips - i). Not kept for 
memory-mapped I/0, since it is aluays zero (each MM I/0 chip 
results in its own table entry). 


Reserved nibble: Nibble #1 from the Chip ID is saved here. That 
nibble is currently not defined. 


Following is the exact format of the configuration buffer table 


entries: 
System RAM Other Memory 
(cnftable ID FF) (cnftable ID FE) 
NIB 0 Seq position Seq position 
NIB i Device # Device # 
NIB 2 Port # Port # 
NIB 3. 15-Log2(size) ** 15-Log2 (size) 
NIB 4 / / 
NIB 5 | Address (kbit) | Address (kbit) 
NIB 6 \ \ 
NIB 7 0 Device type 
NIB 8 #chips/seq - 1 #chips/seq - 1 
NIB 9 Nibble 1 from ID Nibble 1 from ID 
Memory-mapped 1/0 
(cnftable ID FD) 
NIB 0 Sequence position in dev 
NIB 1 Device # 
NIB 2 Port # 
NIB 3. 15-Log2(size) 
NIB 4 / 
NIB 5 | Address (words rel to 20000) 
NIB 6 \ 
NIB 7 Device type (always F) 
NIB 8 Device class 
NIB 9 Nibble 1 from ID 


** FREEPORT routine may set this to zero to indicate that the 
RAM has been removed intentionally. This affects operation of 
this code in the spot where the old and new tables are compared 
to determine which RAMs are new and which are missing. 
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3.5 . User Memory 


User Memory consists of that portion of Main RAM which follows the 
Configuration Buffer. It contains the MAIN file chain, system 
buffers, CALC mode buffers, the command stack, the output buffer, 
available memory, and the various stacks maintained by the 
operating system. 


3.5.1 MAIN File Chain 


Files are stored in a linked list called a file chain. Each file 
in the chain is immediately preceded by a file header which 
contains identifying information about the file as well as a 
pointer to the file header of the next file in the chain. See the 
“File System" chapter for further information on the contents of a 
file header. 


The start of the MAIN file chain is pointed to by MAINST. The 
pointer MAINEN, also known as IOBFST, points past the end of the 
chain, which is marked by a Zero byte. 
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. Configuration 
. Buffers 


<Low> MAINST ------ >| File Header | 


+---| Offset to Next | 
| pm ee ee eee + 
| | | 
| File Contents | 
| 

| tap oe See eee oe + 
+--> : 

+—-~-— 

| 

| Peau see aes + 


+---| Offset to Next | 

| $2 ----- + + 

| | 

| | File Contents | 

| 

| pia a at a a + 

+-->|00] (00 byte indicates 
$=54 end of file chain) 

<High> MAINEN ------ ys 


. system Buffers 


3.5.2 Program Scope 


The scope or bounds of the current program are defined by the 
program start and end pointers PRGMST and PRGMEN, respectively. 
Program scope may delimit a main program or a subprogram, which may 
be part of a larger file. Thr program end (PRGMEN) and current 
file end (CURREN) pointers are equal only when the current file 
contains a main program and no subprograms. 
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Note that the program scope pointers may delimit a program ina 
file that resides in the MAIN file chain, in a ROM, or in an 
Independent KAM, and therefore have no fixed relationship to the 
MAIN file chain pointers MAINST and MAINEN. 


3.5.3 System Buffers 


System buffers are used as general purpose buffers and as 1/0 
buffers. They are maintained immediately following the end of the 
file chain. They are used for storage or working data and in some 
respects are more convenient than files for machine language 
applications. Each buffer is identified by a unique ID. ID’s 
within a certain range are permanently reserved for use by specific 
applications and LEX files. Permanent ID reservations are assigned 
to software developers according to the procedures described in the 
"HP-71 Resource Allocation" chapter in this document. A certain 
range of ID’s are also used and allocated on a temporary or scratch 
basis by the operating system, and are useful for applications 
where the temporary ID number can be saved. 


There are several useful utilities related to system buffers, which 
are summarized in the “Utilities” chapter. 


325.351 Format 


Each buffer consists of a seven nibble header, followed by the 
buffer itself. The first nibble indicates if there are any address 
references in the beginning of the buffer that need to be updated 
by RFADJ (Reference Adjust}; inmost cases this nibble will be 
cero. , 


The next three nibbles are the buffer ID. The following three 
nibbles are the buffer length, that is the length of the buffer NOT 
including the buffer header (an empty buffer has 000 in this 
field). 


The buffer chain is terminated by 0000. 

The statement buffer (bSIMI) is always present and must be the 
first buffer in the buffer chain. This ensures that when executing 
Statements from the statement buffer, PCADDR is not affected by 


buffer modifications. 


Assuming the statement buffer (ID 801) is empty, the buffer chain 
is as follows: 


J-s1 
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SYSTEM BUFFER CHAIN 


+--------------- + +---------~------ + 

| | | 

| V | V 
$m $e a pa pam ne nn $a na a a a a ta tt a ta an pan a tn a te ee tt 
{0]108|000]#/ID|Len| buffer | ... |#]ID]Len|] buffer | ... |0000] 
$a ha a pa a ha than an ta a a a na an tt a tat a pt 
| | 
IOBFST IOBFEN 
MAINEN CLCBFR 
<Low > <High> 


3.5.3.2 Update Addresses in System Buffers 


If a buffer needs to have address references updated to reflect 
memory movement, then the first nibble of the buffer header is 
used. This nibble indicates the number of addresses to update (up 
to 15). The addresses must immediately follow the buffer header. 


At the time a buffer is first created, this nibble is always 
initialized to zero. All of the System buffer utilities dealing 
with expanding and contracting existing buffers preserve this 
nibble. The buffer user is responsible for setting the nibble. 


3.5.3.3 Automatic Deletion of System Buffers 

Buffers are, by nature, temporary storage areas. Part of the 
system's maintenance process for buffers is deleting those which 
are no longer needed. 


Whenever the configuration code is executed, all buffers are marked 
for deletion. The high bit of their buffer ID’s is cleared; that 


is why all buffer ID’s are >= 800H). Certain buffers are 
immediately reclaimed (the statement buffer, the FIB, etc.). Then 
the configuration poll is performed. All buffers which have not 


been reclaimed (high bit set) following this poll will then be 
deleted. 


Anyone keeping buffers must reclaim them at every configuration 
poll (pCONF) or the buffers will go away. This can be done with 
the I/ORES utility which, givena buffer ID, will find the 
unreclaimed buffer and reclaim it by setting the high bit of the 
ID. 


3.5.3.4 Permanent Buffers 


Permanent buffers ID are allocated through official channels and 
are dedicated buffer to a particular application. Refer to the 
chapter on "“HP-71 Resource Allocation". 
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3.5.3.5 Scratch Buffers 


The system buffer ID range E00 to FFF is used for scratch buffers, 
which may be requested by calling IOFSCR, which allocates the next 
available scratch buffer and returns its ID. Scratch buffers are 
. useful for temporary storage when the buffer ID can be easily saved 
by the user. 


3.5.3.6 System Buffers Used by the Mainframe 
The following is a list of system buffers used by the mainframe: 


Alternate Character (bCHARS) 
Assign (bASSGN) 

Card Reader (bCARD) 

External Command {bECOMD) 
File Information (bFIB) 
Immediate Execute Key(bIEXKY) 
LEX Entry (bLEX) 

Statement (bSIMT) 

Statistics (bSTAT) 

Startup (bSTART) 


The index indicates where more information can be found about these 
buffers. 


3.5.4 CALC Mode Pointers 


When CALC mode is in effect, the pointers AVMEMS and AVMEME, which 
control available memory, are given unusual meanings. They act in 
coordination with the other CALC mode pointers as described in this 
section. 


The CALC mode pointers define several volatile areas between CLCBFR 
(which is the beginning of the Command Stack) and FORSTK. 
Characters accepted by CALC mode are inserted at RAWBFR (which 
stands for raw input buffer), while the parsing process operates at 
and advances RFNBFR (refined input buffer). 


Anticipated right delimiters, such as commas and right parentheses, 
are inserted by the parser to the right of RAWBFR. 


During the parsing process, compiled tokens are appended to the end 
of the CALC Token Stream between CLCSIK and SYSEN. The 
intermediate operator stack resides between AVMEMS and MIHSTIK, and 
intermediate operands reside between MIHSIK and FORSTK. At this 
time, system available memory is actually between SYSEN and AVMEMS, 
as shown: 
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CALC MODE MEMORY STRUCTURE DURING PARSE 


bo + 
<Low> | System Buffers | 
CLCBER --> +-------------+-~~------ + 

Command Stack | 

Jj- - - - - - ee ee ee | 

| CALC Refined Buffer | 

RFNBFR --> +-~--------------------- + 

| CALC Left Raw Buffer | 

RAUBFR --> +---~------------------- + 

| CALC Right Raw Buffer | 

CLCSIK --> +----------------------- + 

| CALC Token Stream | 

SYSEN = OUIBS --> +----------------------- + 
| Available | 

| Memory 

AVMEMS --> +----------------------- + 

| Intermediate | 

| Operator Stack | 

MIHSTK --> +----------------------- + 

| Intermediate | 

| Operands | 

PORGTK: > $2sSeese2- 2 = -esescesese- + 

| FOR/NEXT Stack | 

<High> tana ------------------- + 


When a terminator is encountered in the parse process, CALC mode 
stores an EOL token at the end of the token stream in preparation 
for Expression Execute. Memory is then rearranged as shown below, 
with the intermediate operator stack residing between SYSEN and 
AVMEMS and available memory in its normal position between AVMEMS 
and MIHSTK. Expression Execute is then called, which returns a 
value on the Math Stack. CALC Mode then returns the memory 
pointers to the parse configuration above. In this manner, when a 
CALC mode statement is complete, it is already within the Command 
Stack. 
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CALC MODE MEMORY STRUCTURE DURING EXPRESSION EXECUTION 


<Low > System Buffers | 
CLCBFR we) pm me ene we a a ee eee ee ee + 
Command Stack | 


| CALC Refined Buffer | 


RENDER: H 2) tener sere sae asses oes + 

| CALC Left Raw Buffer | 

RAUBER: 23). se-- ess ee oso snes ae se + 

| CALC Right Raw Buffer | 

CLOSER os) 42-22-45 -ese 2 oe + 

| CALC Token Stream | 

SYSEN = QUIBS --> +----------------------- + 
Intermediate | 

| Operator Stack | 

AVMEMS S25) eseneoeee sane se + 

| Available | 

| Memory | 

MIHSIK --> +---------------++------ + 

| Math Stack | 

FORSIK --> +----------~------------- + 

| FOR/NEXT Stack | 

<High> +----------------------- + 


3.5.5 Command Stack 


The Command Stack is a doubly linked list of buffers between CLCBFR 
and RAWBFR. Outside of CALC mode, SYSEN and CLCSTIK are equal to 
RAWBFR. RFNBFR is not used outside of CALC mode (although it is 
updated whenever memory moves); upon entering CALC mode RFNBFR is 
computed and intialized appropriately. 


The Command Stack is initialized to have 5 entries, each containing 
only a carriage return (ASCII 13). Each entry consists of a3 
nibble length field, command text and a 3 nibble backwards chaining 
length field. 


The first length field is the mumber of nibbles in the actual text 
of the command, including the carriage return at the end of the 
text. The command text is always terminated with a _ carriage 
return. The second length field is three nibbles greater that the 
length of the text to allow chaining backwards through the Command 
Stack. 


The number of entries in the Command Stack is kept in the RAM 
nibble called MAXCMD. This nibble must correspond to the actual 
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number of entries in the stack. To change the number of entries in 
the Command Stack, this nibble must be changed as well as 
creating/deleting entries on the stack to match this number. The 
MAXCMD nibble is the number of entries minus one; thus the Command 
Stack can be altered to have from 1 to 16 entries. No mechanism in 
the mainframe is provided to do this. 


COMMAND STACK 


<Low> 
CLCBFR ------- $--> ¢22------------------- + 
| | Len(5) | ----+ 
| $e ee ++ + | 
| | 
| | Text of | | 
| | Command 5 | | 
| | | | 
| | CR {ASCII 13) | | 
| poco Sle See ee eS me a. 
+--- | Len(5)+3 | 
+--)> $e a a ae ee ee ee ee + 
| | Len(4) | ----+ 
| foseel Sete tee owes + | 
| | | | 
| | Text of | | 
| | Command 4 | | 
| | | | 
| | CR (ASCII 13) | | 
| Pes onsei oe wee esos cosans + Csenc% 
tosses | Len(4)+3 | 
$-------------- ------- + 
| Len(3) | 
+------ ~~ - + 
| . | 
| | 
t—--) $---- ee + 
| | Len(1) | ----+ 
| wn een eee eee ene + | 
| | | | 
| | Text of | | 
| | Command 1 | | 
| | | | 
RFNBFR | | CR (ASCII 13) | | 
= RAWBFR | +--------------------- + <---+ 
= CLCSTK +---- | Len(1)+3 | 
= SYSEN ----------- > Heer err en nn re errr errr + 
<High> 
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3.5.6 Available Memory 


The SYSEN pointer separates the CALC Mode token stream from the 
temporary input buffer area for BASIC. SYSEN is used by TRANSFORM 
to mark the beginning of memory available for its input and output 
buffers. 


OUTBS points to the start of the output buffer, used to compile 
BASIC tokens during statement parse and to regenerate text for 
statement decompile. 


AVMEMS marks the end of the output buffer and the start of 
available memory. This delimiter is necessary before moving the 
output buffer to the statement buffer, a program file or to the 
display buffer. 


After statement parse or decompile, the main loop collapses 
available memory start (AVMEMS), the output buffer (OUTBS) and the 
system RAM end pointer (SYSEN) to the end of the Command Stack 
(CLCSTK=RFNBFR) . 


During statement execution, available memory start is at the end of 
the Command Stack. 


3.5.7 Math Stack 


The Math Stack exists between MITHSIK and FORSTIK; it is used for 
intermediate storage of operands during expression execution. Four 
types of objects are recognized on the Math Stack: real numbers, 
complex numbers, strings, and array dope vectors. The stack grous 
from high addresses to low. The pointer, MIHSIK, points to the top 
of the Math Stack. 


Refer to the “Statement Parse, Decompile, and Execution" chapter 
for details on expression execution and the Math Stack. 


3.5.8 Save Stack 


The Save Stack is an area of user memory for saving special system 
information. It resides between the Math Stack and FOR/NEXT Stack, 
as shown below. 


Any new Save Stack allocation is inserted between the current Save 
Stack contents and the FOR/NEXT Stack. Therefore, unlike the Math 
Stack or FOR/NEXT stack, the top of the Save Stack is at a higher 
address than its bottom. The SAVSIK pointer is always positioned 
past the highest-addressed nibble of the most recently allocated 
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section of Save Stack memory, and is therefore identical to the 
FORSTK pointer (for which SAVSTK is merely another name). Note 
that there is no pointer which explicitly marks the bounds between 
the Math Stack and the Save Stack: 


< Low> | | 
| Available Memory § | 
| | 
AVMEME --> +--------------------- + 
= MTHSTK | | Newest Math Stack Entry 
| Math Stack 
| | Oldest Math Stack Entry 
$a oe ee + + 
| | Oldest Save Stack Entry 
| Save Stack | 
| | Newest Save Stack Entry 
SAVSTK --) +--------------------- + 
= FORSTK | | Newest FOR/NEXT Entry 
| FOR/NEXT Stack | 
| Oldest FOR/NEXT Entry 
<High> tone nnn nen === + 


The routine SALLOC will expand the Save Stack by the requested 
number of nibbles. The memory between available memory end and the 
end of the Save Stack (between system pointers AVMEME and SAVSTK) 
is moved down into available memory by the required number of 
nibbles, and AVMEME is updated accordingly. Since this process 
preserves all memory between AVMEME and SAVSTK but overwrites the 
memory immediately before AVMEME, AVMEME must be set to. the true 
top of the Math Stack in order for the Math Stack to be preserved. 


Routines which allocate memory recursively on the Save Stack are 
responsible for removing that memory. The routine "SRLEAS" deletes 
the requested mumber of nibbles from the Save Stack and adjusts 
pointers. 


At the end of every statement execution, the available memory end 
pointer AVMEME is reset to the top of the FOR/NEXT Stack, thereby 
collapsing the Math Stack and the Save Stack. 


The Save Stack is used by POLL to save polling information. It is 
also used by COPY, TRANSFORM and RUN to save source and destination 
file information. 

3.5.9 FOR/NEXT Stack 

At the time a FOR statement executes, information is pushed on the 


FOR/NEXT Stack. This stack is referenced and/or altered any time a 
FOR or NEXT statement is encountered. 
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<Low> Hoenn nn ene nnn + 
{ Return Address | 5 nibbles 
toon - ~~ - ~~ + + 
| Step Value | 16 nibbles 
$---------------- +--+ + 
| Limit | 16 nibbles 
+----------- +--+ + 
| Encoding of Var Name | 4 nibbles 
<High> +---------------------- + 


The encoding of the variable name depends on whether the variable 
is alpha-digit or not. In the case of an alpha variable, the low 
byte is the ASCII letter and the following byte is zeroes; for 
alpha-digit variables, the low byte is the alpha-digit token and 
the following byte is the ASCII letter. The alpha-digit token has 
6 in the high nibble, and the digit in the low nibble. 


3.5.10 GOSUB Stack 


The GOSUB Stack resides between the FOR/NEXT Stack and the active 
variable space. The pointer GSBSTK points to the top of the GOSUB 
Stack. The GOSUB Stack is typically used to save return addresses, 
such as the return address of a call to a subroutine, but may also 
be used to store other addresses and indicators. 


Associated with each address on the GOSUB Stack is a return type 
nibble. 


< Low> aa aa + 
| Return Type | 1 nibble 
$—------------- +-------- + 
| Return Address | 5 nibbles 
<High> +----------------+------ + 


The return type encoding is: 


Return to Program 

Return to Keyboard 

ON TIMER#1 ... GOSUB 

ON TIMER#2 ... GOSUB 

ON TIMER#3 ... GOSUB 

Machine Code Return 
-E Special Return Types: Future statement extensions 

Update Address (Nonzero) or 

Boundary Address (Zero) 

Return to program is the standard GOSUB from within a _ BASIC 
progran. 


mOMOhWNr O&O 


Return to keyboard is a GOSUB initiated from the keyboard. The 
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statement buffer is collapsed before returning to the keyboard. 


Return from an ON TIMER, return type 2-4, reactivates the 
appropriate timer before returning to the statement following the 
GOSUB within a progran. 


Machine code return is a return to a binary program that called a 
BASIC program. The routine "“PSHMCR" pushes the passed return 
address on the GOSUB Stack and tags it as a machine code return. 
The routine "POPGSB" pops an address and return type off the GOSUB 
Stack. 


Special return types: 9-E are available for future statements or 
statement extensions needing special processing on return froma 
GOSUB. An example is ON TIMER...GOSUB needing to reactivate the 
timer before returning. The RETURN statement polls on special 
return type (pRINIp) if within the range of 9-E. 


A nonzero address of return type "F" indicates an update address. 
The system will not return control to an update address, but will 
update the address whenever memory moves. This is a convenient 
place to store pointers to segments of memory which may move. The 
routine “PSHUPD" pushes the passed address onto the GOSUB Stack and 
tags it as an update address. The routine “POPUPD" pops an address 
and return type off the GOSUB Stack. If an update address is 
encountered during RETURN execution, it is not popped off and the 
error "RIN w/o GOSUB" is generated. 


A zero address of return type "F"” indicates an environment 
boundary, however. Such an address marks the end of the 
environment for a user-defined function. If a RETURN statement is 
encountered and the end of an environment is reached, the error 
“RIN w/o GOSUB" is generated. The boundary mark is not popped off 
the GOSUB Stack. 


3.5.11 Variable Storage 


Variables are kept in memory immediately above (higher address) the 
GOSUB Stack. Currently active variables exist between the pointers 
ACTIVE and CALSTK. A complete description of this area is in the 
“Internal Data Representation" chapter. 


3.5.12 User-Defined Function Environment Stacking 
When a user-defined function is called, a portion of the local 
environment is saved in an Environment Save Block which is placed 


on the GOSUB stack in much the same manner as the local environment 
is saved on the CALL stack when the CALL statement is executed. 


3-40 


HP-71 Software IDS - Detailed Design Description 
Memory Structure 


The following diagram shows the structure of memory immediately 
after a user-defined function has been called: 


<Low> 
| : | <== New MIHSTK \ 
| | <== New FORSTK  +-Same value 
$------------------------------ + <= New GSBSTK / initially 
| FO0000 GOSUB Stack Boundary | 
$e + 
| User-Defined Function | 
| Environment Save Block | 
+ ee + 
| Extended Parameter | 
| Storage | 
ton n-- nnn - 2 = +++ ---~----- +--+ --- + <== PRMPTR 
| Last Parameter of Function | 
$e ee ee + + 
| | 
| ‘ | 
| : | 
$e + 
| First Parameter of Function | 
+ en ne ee ee + 
| Function Value | 
$a nnn nn n= - $= ------------- + <== Qld MIHSTK (vaiue before 
| | the user-defined 
| function is called) 
| 
#¢---+-----~-------------------- + <== Old FORSTK 
| | 
+--------~--------------------- + <== Old GSBSTK 
| | 
PeBeoe Sse u eels esac eceees + <2: ACTIVE 
| | 
petestessese sul eee se aeseet oe + «== CALSTK 
| 
<High> 


3.5.12.1 Environment Save Block 
The User-defined Function Environment Save Block is located after 


the end of the GOSUB Stack (which is marked by F00000). It 
contains the following data: 
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ENVIRONMENT SAVE AREA 


USER-DEFINED FUNCTION SAVE BLOCK FORMAT 


Return address 5 nibbles -+ These pointers 


PCADDR saved 5 | are adjusted 

CNTADR saved 5 | 

STMIDO saved 5 | when memory 
3 hardware return addresses 15 -+ moves. 


SIMID1 saved 5 

SIMTRO saved 16 

SIMIR1 saved 

Offset to previous MIHSTK 
Offset to previous FORSTK 
Offset to previous GSBSTK 
Previous parameter count 
Offset to previous PRMPTR+2 
SISAVE saved 

CHN#SV 

Return type 


~ 
PMWM OI OAD 


Return address - Contime execution address when ENDDEF is 
executed. 


PCADDR,CNIADR,SIMIDO - Updated when memory moves. 


Hardware return stack addresses - Three addresses will be popped 
off the hardware return stack and saved. This means if an 
assembly routine calls the expression execution routine, 
only the last three return addresses in the hardware 
return stack will be preserved. 


STMID1 - This saved pointer will be adjusted when a new variable is 
created while executing a user-defined function. 


SIMIRO - This is the same as S-RO-0 ... S-RO-3. If the first five 
nibbles of SIMIRO(S-RO-0) contain a memory address (>10000 
Hex) and the first hardware return address saved is 
=STORE, S-RO-O0 will be adjusted when a new variable is 
created. 


SIMIR1 - This is the same as S-R1-0 ... S-R1-3. 
Offset to previous MIHSTK,.. PRMPTR+2 - These pointers are saved 


as relative addresses. Adding the offset to where it is 
saved points to the previous pointer. 
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Return type - 0 : User-defined function is called froma 
program statement. 
1 : User-defined function is called from a 
keyboard expression. 
8 : User-defined function is called by a 
Binary routine. 


3.5.12.2 Extended Parameter Storage 


The value of string or complex parameters is stored in this area. 
The extended value is pointed to by the parameter value. 


3.5.13 Subprogram CALL Environment Stacking 


When a subprogram is called, a new local environment must be 
created. Before this can happen, the old calling environment must 
be saved by “pushing" it onto the CALL Stack. The process is 
performed in three steps. 


First, an area is opened immediately before the current FOR/NEXT 
Stack to hold information blocks which contain pointers and other 
data about the current environment. The operating system writes 
one save block and then issues a poll to allow any LEX files 
present to add other blocks. This area is called the Environment 
Save Area, and is described below. It is also referred to as the 
Subprogram Save Stack. 


Next, the current environment is "pushed" onto the CALL Stack by 
adjusting the pointer CALSTK to the start of the newly created 
Environment Save Area. 


Finally, the new local environment is created and the pointers 
ACTIVE, GSBSIK, FORSTK, and MIHSIK are adjusted as shown below. 
The initial active variables are the parameters passed to the 
subprogram. 
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< Low> | | 
| | <== New MIHSTK \ 

t-- 00 te-------------- + <== New FORSTK \ Initially 
New | | | <== New GSBSTK / same value 
Local | J ------- | <== New ACTIVE / 
Environment | | (parameters) | 

+-- $---- = ee + <== New CALSTK 

| | Environment | 

| | Save | 
Stacked | | Area | 
Environment | +--------------- + <== Old FORSIK 

| | | 

| | CALLing | <== Old GSBSTK 

| | | 

| | Environment | <== Old ACTIVE 

| | | 

boo Henao no ---- +--+ + <== Old CALSTK 
<High> | | 


Each CALL statement adds a level to the CALL Stack by saving the 
current environment and each END SUB removes a level from the CALL 
Stack by restoring the previous environment. 


The CALL Stack is bounded by the CALSTK and RAMEND pointers (when 
CALSTK equals RAMEND there are no saved environments). 


3.5.13.1 Environment Save Area 


The execution of CALL stacks more than just the GOSUB Stack, the 
FOR/NEXT Stack and the local variables. It creates an area below 
(in lower memory) the FOR/NEXT Stack to hold information about the 
environment which is being suspended. This area is called the 
Environment Save Area or the Subprogram Save Stack. 


It is filled by a linked list of information blocks called 
Environment Save Blocks. Each block may contain a list of 
addresses to be updated when memory moves, as well as other data. 
The block begins with a 2 nibble ID followed by a5 _ nibble link 
field which points to the next block in the list. This is followed 
by a i1nibble field specifying a number (0 to 15) of 5 nibble 
update addresses (which will be updated when memory moves), and 
then that number of update addresses. Any remaining area in the 
block may be used for arbitrary data and is not updated. 


The first save block is created by the mainframe CALL statement. 
Its ID is 00, and marks the end of the linked list. This block is 
always 89 nibbles in total length. 

At CALLing time, after the mainframe creates its save block, it 
polls (pCALSV) to give LEX files a chance to add a_ save block to 
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this area. Each poll handler that has anything to save is expected 


to create another block (growing into available memory) in the same 
format. 


The save block created by the mainframe has the following contents: 


ENVIRONMENT SAVE AREA 
MAINFRAME SAVE BLOCK FORMAT 


<Low> 
LEX ID (00) 
Entry length (04F) 
Number of addresses to update (A) 
+-- CURRST saved 


nibbles 


~—+ 


| PRGMST saved 
| PRGMEN saved 
Addresses | CURREN saved 
updated | PCADDR saved 
when memory | CNIADR saved 
moves | 
| ERRADR saved 84 nibs 
ONINTR saved = 04F hex 


+-- DATPTR saved 

+-- Offset to previous FORSTK 

| Offset to previous GSBSTK 

Misc. | Offset to previous ACTIVE 

Info | Offset to previous CALSTK 

| Parameter count saved 

| Offset to previous PRMPTR+2 

+~- Return type 
<High> 


2 
3 
1 
5 
5 
5 
5 
5 
5 
ERRSUB saved 5 
5 
5 
5 
5 
5 
5 
5 
2 
5 
1 


ns as as a an a ct ti aaa ema eg en co ieee cae 


LEX ID 

For the block created by the mainframe this field is 00. 
This indicates the end of the linked list and that the 
suspended FOR/SIACK, GOSUB Stack and variables follow 
immediately. For blocks created by lex files, this field 
should be filled in with the LEX ID of the file creating 
it. It serves as a tag field to identify the block later 
when the return from subprogram causes the Restore CALLing 
Environment poll (pCALRS). 


Entry Length 
This field is always 84 (04F hex) for the block created by 
the mainframe. This mumber includes everything in the 
block starting from the next nibble (the update address 
count nibble) to the end of the block (the return type 
nibble). This length does not include the LEX ID field or 
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the entry length field itself. 


Number of Addresses to Update 
For the mainframe, this nibble is always 10 (A_ hex), 
reflecting the number of following pointers that require 
updating when memory moves. Blocks created by LEX files 
may have from 0 to 15 addresses updated. 


Addresses to be Updated 
The previous field specifies how many 5 nibble addresses 
are included here. The 10 address fields in the mainframe 
block are used to save the following memory pointers for 
restoration later: CURRST, PRGMST, PRGMEN, CURREN, PCADDR, 
CNIADR, ERRSUB, ERRADR, ERRSUB, ERRADR, ONINTR and DATPTR. 
Whenever program memory moves, these addresses stored here 
Will be updated to reflect the new address of the thing 
they point to. 


Miscellaneous Information 
After the addresses to be updated described above, the 
remainder of the block has a format specified individually 
for that type of block. The block created by the 
mainframe has the following fields: 


Offset to previous FORSTK ... CALSTK 
These pointers of the calling program environment are 
saved as relative addresses. Adding the offset to 
where it is saved points to the previous pointer. 


Parameter Count 
One byte field. If zero then currently not in a 
user-defined function; if nonzero, then represents 
parameter count - 1 of the user-defined function. 


PRMPTR 
This is a 5 nibble pointer to the first parameter in 
the user-defined function’s parameter chain. 


Return type 
If =0, CALL is from a BASIC progran. 
If =1, CALL is from a Binary progran. 


3.6 Plug-in ROM and Independent RAM 


The format of a plug-in ROM module is the same as for a RAM module 
configured as an Independent RAM, with the exception of the first 
eight nibbles of the module which contain the Stand Alone Module 
ID. Either form of plug-in memory module contains a file chain, 
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starting in the ninth nibble, that is identical in format to the 
MAIN file chain. 
Throughout the following discussion, the term ROM will be used as a 


general name for a stand alone memory module, whether it be a 
plug-in ROM module or an Independent RAM. 


3.6.1 Standard Configuration 


The general format of every stand alone memory module is as 
follows: 


taco Sease Ses Seas seke + <--- Module Start 

| Stand Alone Module ID | 
Rice gra oa i ne ee + <--- Module Start + 8 
| 

| | 

| File Chain | 

| | 

| | 

4 - = = $2 ---------------- + 

}00 byte] . ‘<--- 00 byte ends chain 
$------- + 


<--- End of Module 


vs e@erwr error er eee emer ese eee e ere ee eee 


3.6.2 Stand Alone Module ID 


The Stand Alone Module ID field is used to distinguish an 
Independent RAM from other forms of memory modules. For 
Independent RAMs, this field has the hex value B3DDDDDE (the B is 
in the lowest-addressed nibble of the module). For ROMs and all 
other forms of memory modules, this field may have any value except 
the IRAM value. 


3.6.3 File Chain Layout 


Each file entry in the chain begins with a file header which 
contains the file name and other identifying information about the 
file. The format of the file header is the same as that used in 
the MAIN file chain, and is described in the “File System" chapter. 
As in the MAIN file chain, a stand alone module file chain is 
terminated by a zero byte in the first character of a file header 
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name field. 


$---------------- + <--- Module Start 


{| Stand Alone | 
| Module ID | 
scalagarcniai cea pained + <--- Start of File Chain 
| File Header | (Module Start + 8) 
| | 
J---- ee ee | 

+---| Offset to Next | 

| $e nn en ee ee ee + 

| | | 

| | File Contents | 

| | | 

| Peete see eS + 

+-->| File Header | 


+---| Offset to Next | 
| $a ma ew ae eee eee + 
{| | 
| | File Contents | 
; | | 
| $a to eee - = ----- + 
+-->|00| <------------------ 00 byte ends chain 
+--+ 


3.6.4 Take Over ROM 


Take-over ROMs come in two flavors: soft-configured and hard- 
configured. 


3.6.4.1 Hard-Configured Takeover ROM 


A hard-configured take-over ROM must be plugged into port 1, where, 
by virtue of shorting certain lines together, it will disable the 
system ROMS. This ROM should be hard-configured in the address 
space occupied by the HP-71 system ROMs, as it is replacing then. 


A problem occurs when installing such a ROM: where is the CPU’s 
program counter? This is a problem when 1) the takeover ROM is 
plugged in, and must resume execution from the HP-71 ROM, and 2) 
the takeover ROM is unplugged, and HP-71 must resume execution. It 
is virtually impossible for HP-71 to guarantee the position of the 
PC, except during deep sleep. During deep Sleep, the PC spends 
most of its time pointing just past the SHUIDN in the deep sleep 
routine. However, the processor does occasionally wake up to 
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process clock system requests and whatever else may request 
service. 


If the hard-configured takeover ROM uses memory in such a way that 
it is incompatible with the HP-71 operating system, the ROM should 
perform its own version of cold start when it is plugged in and 
unplugging it should force the HP-71’s built in operating system to 
perform a coldstart. 


A few simple rules will facilitate this: 


1) HP-71 should be turned off when plugging in a hard-configured 
takeover ROM. 


2) The takeover ROM should expect control to be passed to it at 
the address just past HP-71’s deepsleep SHUTDN (address = 
5E2). This is where the PC is most likely to be. 


3) The takeover ROM should be at a shutdown when unplugging it. 


4) The takeover ROM shutdown should position the PC at the HP-71 
coldstart code (label CLDST1). 


5) The takeover ROM should use a different CMOS testword from 
HP-71, this will cause the built in operating system to 
coldstart as soon as it is reenabled {at time of next 
interrupt). In general, the CMOS test word should be unique 
for each take over ROM and should be used to determine if 
memory is “okay” for that particular hard configured take over 
ROM. 


It is conceivable that a hard configured takeover ROM might be made 
compatible with the built-in operating system so that is may be 
Plugged in or removed without loss of memory contents. In this 
case, the ROM should use the same CMOS test word as the built in 
operating systen. 


3.6.4.2 Soft-Configured Takeover ROM 


A soft-configured takeover ROM avoids many of the problems of a 
hard-configured ROM. It is useful for adding subsystems to the 
HP-71, such as a pocket secretary. It can simply grab control of 
the machine at an appropriate time, such as Wake-up poll or 
Powerdown poll. This is essentially a mode, not a new machine. 


In general, a soft-configured takeover ROM should not mess with 
HP-71 operating system RAM. It is an extension of HP-71, and more 
than likely is interacting with HP-71 code in the system ROMs. 
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A major limitation of soft-configured take-over ROMs is that it is 
very difficult for them to change the system’s configuration. 

Doing a bus reset (unconfigure all chips) will unconfigure itself, 

making it impossible to execute any more code from the ROM. A 
soft-configured ROM, barring some very clever programming, will 
have to live with the HP-71 system configuration. 


3.7 Available Memory Management 


The term “available memory" refers to the area of RAM between the 
boundaries pointed to by AVMEMS (available memory start) and AVMEME 
(available memory end). This region supplies the memory for new 
allocations on the various system stacks, which cause AVMEME to 
grow toward AVMEMS. This region also supplies the memory for the 
system’s output buffer, which is used to hold the tokens output by 
the parsing process and for various other system functions which 
cause AVMEMS to grow toward AVMEME. 


In addition, activities which increase the size of the main RAM 
file chain (such as creating or enlarging a file in the chain), the 
Size of the system buffer area (creating or enlarging a systen 
buffer), or the size of the Command Stack, will also cause AVMEMS 
to grow toward AVMEME. 


A minimum amount of available memory is therefore necessary for the 
operating system to function. This minimum amount is 106 bytes, 

and is referred of as LEEWAY, which is a globally defined symbol in 
the operating system equate file (see file TI&EQU in Volume III of 
this document). 


Whenever an operation system activity must consume available 
memory, a check 1s performed according to the following 
conventions: 


* If the memory allocation is permanent (that is, after the 
activity is completed, the memory will remain allocated) , then 
available memory must not dip below LEEWAY. Examples of 
permanent allocations are creating a system buffer, creating a 
variable, adding to the GOSUB Stack, FOR/NEXT Stack, or the CALL 
Stack. 


* If the memory allocation is temporary (that is, after the 
activity is completed, the memory will be released), then 
available memory may dip below LEEWAY. Examples of temporary 
allocations are: parsing or decompiling into the output buffer, 
expression evaluation using the Math Stack, preparing messages 
for display, or issuing a poll (which saves 31 bytes on the 
SAVSTK). 
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When an insufficient memory condition has been detected and 
reported, the user must be able to perform certain commands, such 
as CAT, PURGE, COPY or END, in order to release memory ina safe 
manner so that the system is again usable. 


To allow these activies to occur during low memory, the following 
special cases of LEEWAY checking have been implemented: 


* When a command is added to the Command Stack that causes a dip 
below LEEWAY, previous commands will be crushed to mull, 
Starting with the oldest, until LEEWAY is reached or only 1 
command remains. 

* When the statement buffer is expanded to accept. the tokenized 
statement, LEEWAY is not checked. 

* lLeeyay in not checked when COPY saves its file info on the Save 
Stack. 

* The poll routine does not check LEEWAY when saving poll info on 
the Save Stack. 


The value of of LEEWAY has been set to allow a file to be copied to 
an external device. This requires the following amount of memory: 


Command Stack to enter COPY command 25 bytes 

To move tokenized COPY statement into 25 bytes 
Statement buffer 

Save COPY file info on the Save Stack 25 bytes 

Issue COPY poll to external device 31 bytes 


LEEWAY = 106 bytes 


If a LEX file or other user-supplied code causes the memory 
available to the operating system to shrink below this minimun, 
catastrophic failure may occur. For example, if available memory 
has shrunk so far below LEEWAY that the error message handling 
routines do not have enough room to build the "Insufficient Memory" 
error message, the system will loop infinitely attempting to 
process the message. 


See the "Message Handling" chapter for a discussion of the chapter 
discusses the MEMCKL utility which checks available memory with or 
without LEEWAY. 


3.8 Handling Memory Movement 


Whenever file memory is moved due to adding data to or deleting 
data from the MAIN file chain or an IRAM file chain, the various 
system pointers which reference the file system and neighboring 
areas of memory may need to be adjusted. RFADJ is the utility 
called after such a memory move, to examine these pointers and make 
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the necessary adjustments. There are two major routines which make 
up RFADJ: RFADJ- (used when memory moves to lower addresses, as 
with a PURGE of a file [MOVEMU called] and RFADJ+ (used when memory 
moves to higher addresses [MOVEMD called]). 


Entry conditions parallel requirements for calling MOVEUx and 
MOVEDx (move memory routines): Begin Source, Begin Destination, and 
End Source, are referred to in this context. Note that the End 
Source address is the address of the nibble that immediately 
follows the last nibble in the source block. Therefore, the source 
block is null when Begin Source equals End Source. 


B(A) 1s assumed to be an offset: Begin source - Begin destination. 


Algorithms: 
RFADJ- : Save begin source in RO 
RFAD-- : Position D1 at AVMEMS ram location 


The following entry point can be used by memory movement on 
plug-ins. It assumes Dl is positioned at a ram location which 
contains ’AVMEMS’ of that plug-in, i.e., the address after the last 
file in the chain. é 


RFAD-I : Save begin destination in R1 (RO+B) 


D(S) <-- 1 (flags which way mem is moving) 
Call RFAD58 (Updates addresses on FOR and 

GOSUB Stacks) 
Call RFAD97 (Updates addresses in RAM locations 


PCADDR-->IMRAD3 - zeroes out those 


referencing purged address space) 
Goto PCUPD+ 


RFADJ+ : Save begin source in RO 
RFAD++ : Position D1 at AVMEMS ram location 


RFAD+I : D(S) <-- 0 (flags which way mem is moving) 
Call RFAD58 (Updates addresses on FOR and 
GOSUB Stacks) 
Call RFAD86 (Updates addresses in RAM locations 


PCADDR-- >TMRAD3) 
PCUPD+ : Updates CURRST-- >AVMEMS 


PCUPDT : 


Address updating: 
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If address < End Source 
THEN If address >= Begin Source 
THEN update (add offset). 


Address zeroing:: (Done only if D(S)#0) 
If address < Begin Source 
THEN If address >= Begin Destination 
THEN zero it. 


The following references are NEVER zeroed: 
1) Addresses on FOR/NEXT Stack 
2) CURRST-- >AVMEMS 


3.8.1 In Configuration Buffer Area 
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Configuration buffers are only manipulated during execution of the 
configuration code. Following is a summary of the effects of 
configuration buffer manipulation on various system pointers. 
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HP-71 REFERENCE ADJUSTMENTS -- CONFIGURATION BUFFERS 


w 
" 


Actions 


system Pointers 


oS Updated only if Begin Source <= address < Begin Dest 
a Updated only if Begin Source < address < Begin Dest 
a Unconditionally updated (offset always added to pointer) 
i Address set to 0 if Begin Dest <= address < Begin Source 
oc Not updated 
$e ee ee ee ee + 
j : | ACTION ON | 
CONFIGURATION 
Create :: Item created | BUFFERS | 
$e ma te ee Hey 
Expand ::= Buffer expands LC JE 1 es | 
beg Tape coy 
Contract ::= Buffer shrinks fjej{pln{] 
ey ae a ea 
eh ae 4 ae Hl 
leldlia| 
ft | Jel 
f Jf dtl 
wren a + $a +--+ = + 
Eh 4 | 
i : | | | | 
| | | | 
MAINST - MAIN File Chain Start | U | | 
CURRST - Current File Start | | | | 
PRGMST - Current Program Start | | | | 
PRGMEN - Current Program End |B! BI BI 
CURREN - Current File End Bb Bf Bel 
MAINEN - MAIN File Chain End [BB Beil 
CLCBFR - CALC Mode Buffer Start {Bil BI BI 
RFNBFR - CALC Mode Refined Buffer | B {| B]! B | 
RAWBFR - CALC Mode Raw Buffer 1BI BIBI 
CLCSTK - CALC Mode Token Stack | | | | 
SYSEN System RAM End | | | 
OUTBS Output Buffer Start | Bi BI Bi 
AVMEMS - Available Memory Start | | | | 
ae | 
AVMEME - Top Math Stack oe oe Te | 
FORSTK - Top FOR/NEXT Stack ee eT 
GSBSTK - Top GOSUB Stack | | | | 
ACTIVE - Active Variable Pointer | | | | 
CALSIK - CALL Stack ft ke at 
RAMEND - User RAM End | | | | 
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| | | 
--------- +--+ 4---4+--- +--+ 
| | | | 
Pointers in System Buffers : | | | | 
| | | | 
LEX BUFFER Pointers 1!BI|BI BI 
FIB: File Begin Field |}BIiBI Bi 
FIB: Data Start Field }B]BI BI 
| | | | 
oe - + $---4+¢---+---+ 
° e e e | | | | 
Pointers Within Environments: | | | | 
| | | | 
FOR/NEXT Stack Addresses I1BiIBI BI 
GOSUB Stack Update Addresses | BIBI BI 
| | | | 
we en ee nen ee $n e— $- + +--+ 
| | | 
Miscellaneous Pointers: | | | | 
| | | | 
PCADDR - Program Ctr at Stmt len | BI{BI|B | 
CNIADR - Continue Address | BI BIBI 
ERRSUEB - ON ERROR-GOSUB Rtn Addr eB PB Bet 
ERRADR - ON ERROR Statement Addr 1B] BI] BI 
ONINIR - ON INIRPT Statement Addr | B | B |B | 
DATPTR - DATA Statement Pointer |1Bi BY BI 
TMRAD1 -~ ON TIMER#1 Statement Addr | B | B | B | 
TMRAD2 - ON TIMER#2 Statement Addr | B [| B | B | 
TMRAD3 - ON TIMER#3 Statement Addr | B |! B | B | 
| | | | 
ee $4 ---4+---+ 
| | | | 
Note that these are NEVER UPDATED: | | | 
| | | 
INBS - Input buffer start Le ee eed 
SNAPBF - Snapshot Buffer Addresses | * | * | * | 
RSTKBF - Rtn Stack Save Buf Addrs | * | * | * | 
| | | | 
oe ee ew ee aaa pee an pet 


3.8.2 In a File Chain 


When file memory moves, system pointers such as CURRST may need to 
be adjusted. In this case the routine RFADJ (Reference Adjust) 
must be called to handle the updating of all of these pointers. 
This routine examines each pointer to determine whether or not it 
was affected by the memory move; all affected pointers are updated. 


RFADJ examines pointers DSPCHX through TMRAD3, CURRSTI through 
AVMEMS, all pointers in FIB’s, and pointers on the FOR/NEXT Stack, 
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GOSUB Stack, and CALL Stack. Pointers which reference purged 
address space are zeroed out (this does not include any pointer 
which pointed at the begin destination of the memory move - For 
example, if the file following the current file was purged, CURREN 
would NOT be zeroed out). 


When files move to a lower address (as when a file is purged), 
RFADJ- is called; if files are on a plug-in, RFAD-I is the entry 
point to use. When files move to a higher address (as when a file 
expands), RFADJ+ is called; if files are on a plug-in, RFAD+I is 
the entry point to use. 


HP-71 REFERENCE ADJUSTMENTS -- FILE MEMORY MOVES 
B ::= Updated only if Begin Source <= address < Begin Dest 
A ::= Updated only if Begin Source < address < Begin Dest 
U ::= Unconditionally updated (offset always added to pointer) 
é A ; 
Z ::= Address set to 0 if Begin Dest <= address < Begin Source : 
* 3:= Not updated 
Actions: +--------------- +--------------- + 
| ACTION ON FILE= ACTION ON FILE| 
Create ::= Item created | IN MAINFRAME = IN’ IRAM | 
$$ $$ Ha + 
Purge ::= Item purged 1}c|!P{AlLUWU=CIPIAIU I 
Ppa de Se Pp a ts Poe 
At end ::= Movement at end lelr | | tz=elfr | | t | 
lalglelhzajlglelthl 
Within ::= Item grows/shrinks | t/e|]n]/]i-zt]elnt{il 
in the middle lel J|dinzel [|dlfni| 
| | | | = | | | | 
wo ee + + $a 4 Ha tt ee a tn tH = + 
| | | | = | | | | 
System Pointers: | | | Po me ou GR, ahs Gy 
| | | | = | | | | 
MAINST - MAIN File Chain Start | *F * |] *|]*=* | * | * {| * | 
CURRST - Current File Start |*|1BIBI|Bz=* | BIBI BI 
PRGMST - Current Program Start | *1BIBIB=* |B] BIB | 
PRGMEN - Current Program End 1*|BiBIBz=* | BIBI BI 
CURREN - Current File End i*|/BIBIB=-*{ BIBI BI 
MAINEN - MAIN File Chain End f}ujulutuze* | *[ *] * | 
CLCBFR - CALC Mode Buffer Start | U|]|UI[UIlU=* | *[* | * | 
RFNBFR - CALC Mode Refined Buff |U/|U[U|]U=* | * | * {| * | 
RAUBFR - CALC Mode Raw Buffer | U|]UIlU|JU=* | *{[ * | * | 


3-00 


HP-71 Software IDS - Detailed Design Description 


Memory Structure 


Re ER eR een mR Geen ee en ES QE eens eres ee se ee oe eee re ee ee ee ee eee ae ee ee em ee me ery ee ee ee eee ee ee me ee ce ee 


+ + + + 
1 { ' { 
* kK Ke we Ke we Kk ' mm : mm MMmMmmmmMmMmamnma *x ke 
ee ee eee a a aa a a a aaa 
! 1 
* * Kk K we Ke OK OK Ok Ok Mma : m © RMRMmMaAmmMmMm~maAMnNnMmMmmA * Oe Ok 
Me eee eee aa eH ee ee ae ee 
' NNN t { ( 
* Kk OK &K * we OK Kk OK mndt mm ammammmmmmma * * 
SE a Ae Aa A a ah aa 
{ ’ 
* ke kk x kK kK KK t mmm mM ~~ ' AMMmmmMmmmwmammMmm * Ok oK 
a a nO vo iT | U] nu ou it u . u H on '* HH WH 1 + tt tt it nH HH H + tf i] at uw om 6 6MllU Oh a i] te ¢+¢ 0 “oon “« ow oo 
! ' t { 
sola we Km Ke Ok Ok ! mm : mm mammmnmnmmMmMmmm~ma x KK OK 
Bae ep ee ee ee eT vee, Reena rele eer Pe ee pe are eee ee eT Gere eee 
' 
~~ mo x KK KK ' mm< : mm mMmmammmmmamma x * 
' 
a ae ee ae ee gS 
{ NWN 1 N ' NNNNNNNN NS t 
5S>DDD * * Kk * *k * Mn m ~ MmaomMmmM@mMmmMmMmMmmMmm *k KX 
' 
— i? > * KK Kk Kk mamMm<« ' mm ' mMoammanmnmmMmoaomM * Kk 
be ' t ‘ Sc = \ DN 
- @ ' ' ' @ oO b+ ' ee nO 
ae | ~ i t t - Oo DM ha be be t - ow 
8 c j | ! << MeO UD UD t {x} wu 
- ord ' ‘ oo ' - WO OUD UD t om 
re is “ Oo ' ee ( Q ' & cvCOA tee ! << #U 
W g Qu, ' t ¥ t ~~ UO<<t Oo ' A Bs 2 
~ > ' © ‘ S ' C2 D&G << wee wv \ A. 
G Y ~ ~ WY ' 4 ' @ Q ' % ~ ccc ' > YY hy 
oS Oo “10 Ort ’ @ ‘ fi @ $ ~ Mm Srcs & § t no @® 
we roy YO G6 2 t oe) uo wD ' © t oe @ oe cec ~ i OG ww S 
oO fa) 3 § Ee © z ' oe ae ' o n ® ( LV) Oo ErPVNnNNN ' f2) ty We (0 
tH rw ~ Wee ' a @ @ ! Hy @ W t 7 fa & 1 BR oa” 
“ tA ty so t QD ort cent ' ond &# |W ' @ ~ ow MOna UNM ! we 
® aj @ zO Oo ! ba fas fay ‘ z Do a ' ~ O ! St ee ‘ Zz. roy oe 
ed <= > e ! & @ ' Oh t S @ OO om mam 1 73 +} g 
2 2 a » \ Pe oce ' (2) «tv ! to 5 2008 Faw wy ' f1) “2 
E&- SS ss aun ' - See 4 ' oO i © Soe { OG pw) 
O9S4 Eh > t QD <4 OO i oc Mt ' ou beer Oc OG oer ' < » Hw 
O # Ayer tot dh ' >> Od wv ' ort O ‘ OO + th) ed es ct of bt OH ' > Ay 
2228 Sssog$ ; @ *8e | 5 82} 8 ESzzeezzz | B FES 
' 
SREE HHmeM tO > & ee = yA 8 Wstalotalstotons ' {2 om 1) OG 
. { 
st bog tot! t!avet ' Bard ' \ c ee ee | 
' Q fu fy { N as i © Pee eat A ak 
oc ac &< 1) ac t be _ ( a fg “SN ' ec Hmmm am a NM ’ ' baa fey 
nee ABA i a % t @ = Mm t ro Baeneeb ieee | ' mm 
4 ra ' ” *e \ - cB ! o AatHhH< qaic 1 W) oO. x 
Gabe ese#ige | § gee | & eB i § seSSSGEES : ge 2s 
e ° { 
DB <x Tm O ato £ wa faa bay ' & m & z a. II OM { 5 =a 
j 


oe a a hn a pn pn nan ee et et 
3-57 





HP-71 Software IDS - Detailed Design Description 
Memory Structure 


3.8.3 In System Buffer Area 


When an buffer 


this. All pointers 


buffer code. 


HP-71 REFERENCE ADJUSTMENTS BUFFERS 
B = Updated only if Begin Source <= address < Begin Dest 
A ::= Updated only if Begin Source < address < Begin Dest 
U = Unconditionally updated (offset always added to pointer) 
Z = Address set to 0 if Begin Dest <= address < Begin Source 
* ::= Not updated 
Actions: +--------------- + 
| ACTION ON I/O | 
Create ::= Item created BUFFERS | 
$---4+---4+--- +--+ 
Purge ::= Item purged PoC Po | Af) ae] 
Ee Page wb 2b | 
At end ::= Movement at end lelfr| ae | 
lalgilietlhnh|] 
Within ::= Item grows/shrinks | t |1elnt|{ i | 
in the middle le | badd ed 
| | | | 
wr ee ee ee ee a ee ees 
| | | | | 
System Pointers: | | | | | 
| | | | | 
MAINST - MAIN File Chain Start pe ae Eh me | 
CURRST - Current File Start pe ee Ee ae ol 
PRGMST - Current Program Start pO A Le Spe 
PRGMEN - Current Program End pe oS me S| ee a 
CURREN - Current File End [im yams fe gee | 
MAINEN - MAIN File Chain End [oe he a a ae 
CLCBFR - CALC Mode Buffer Start Uru Tou tu] 
RENBFR - CALC Mode Refined Buffer | U| U!U|uU| 
RAWBFR - CALC Mode Raw Buffer fululutuy 
CLCSTK - CALC Mode Token Stack Le Pe Pe | 
SYSEN - System RAM End f{ujujutlul 
OUIBS - Output Buffer Start lulultlufu i 
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is created or deallocated, or when an existing 
buffer 1s expanded or contracted, pointers are updated to reflect 
in the RAM map between 
inclusive, are updated by a call to PTRAD2 from within the System 


IOBFEN and AVMEMS, 
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AVMEMS - 


AVMEME - 
FORSTK - 
GSBSTK - 
ACTIVE - 
CALSTK - 
RAMEND - 


te wee ew we ew ws we we we wm we ew we ww we we we ae we a 


Available Memory Start 


Top Math Stack 

Top FOR/NEXT Stack 

Top GOSUB Stack 

Active Variable Pointer 
CALL Stack 

User RAM End 


Pointers in System Buffers : 


LEX BUFFER Pointers 
FIB: File Begin Field 
FIB: Data Start Field 


Pointers Within Environments: 


FOR/NEXT 


Stack Addresses 


GOSUB/RETUERN Addresses 


ewe eee we ee we ee ew ae we ee we we ee ae a a i a ae 


Miscellaneous Pointers: 


PCADDE - 
CNTADR - 
ERRSUB - 
ERRADR - 
ONINTR - 
DATFPTIR - 
TMRADI - 
TMRADe - 
TMRAD3 - 


Note that 


INBS-) - 
SNAPBF - 
RSTKBF - 


Program Ctr at Stmt len 
Continue Address 

ON ERROR-GOSUB Rtn Addr 
ON ERROR Statement Addr 
ON INIRPT Statement Addr 
DATA Statement Pointer 

ON TIMER#1 Statement Addr 
ON TIMER#2 Statement Addr 
ON TIMER#3 Statement Addr 


these are NEVER UPDATED: 
Input buffer start | 


Snapshot Buffer Addresses 
Rtn Stack Save Buf Addrs 


329 
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eee ee we we we we we ae a a oe ae a a a a a a ea nw ee ww www ww wwe = 


| 
| SYSTEM CONTROL 
| 


ee ee ae ee ae ae i eww ew +> 


| 
CHAPTER 4 | 


+ —-—— + 


me a a a ee a a ee a we a ee a ww ee ew ee ee + 


This chapter describes the fundamental algorithms which control the 
behavior of the operating system. The over-all process by which 
the system repeatedly waits for and then processes the next 
command, is generally referred to as the “main loop." 


The following diagrams and detailed algorithms describe the main 
loop and its related processes. 
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4.1 Main Loop Flow Diagram 


cement eee meee Geer emmy ee eu tee ere eee ee ee omnes ee ene ee eR Ge Se See See ome 
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| Stack | 
$e----- $e + 
| 
V 
$e nn ne ee + 
t------ $o------ + | | 
| Execute | | Parse Line | 
| Statement | | | 
| Buffer | +------ +------- + 
$e weer nme na= + | 
i | 
| Vv 
! - 
eee tose nee + / \ peoehee jasc eee + 
| Expand | no / \ yes | Edit into | 
| Statement | <-------- / Program \--------- >| Current | 
| Buffer | \ Line? / | Program | 
pope Soke eee + \ diel ciara wererael are + 
OY 
V 


HP-71 Software IDS - Detailed Design Description 
System Control 


4.2 Algorithm 


4.2.1 Cold Start 


Enables interrupt system 
Initialize CMOS test word 
Initialize system RAM to zeroes 
Reset display 

Turn display on 

Set display row drivers 

Set display contrast nibble 
Initialize DELAY parameters 
Perform ColdStart configure 
Create Statement Buffer 
Initialize clock system 

Check for low battery 
Initialize flags and traps 

zero RAM between AVMEMS and RAMEND 
Clear AUTO mode 

Clear program running flag 
Clear don’t continue flag 
Initialize IS-TBL table 
Initialize PRINT and DISP position and width 
Initialize ENDLINE string 

Put Coldstart message in displa 
Create Workfile ~ 
Create file information buffer 
Initialize random number seed 
Perform coldstart fast poll 


4.2.2 Main Loop, Wakeup, Power Off, Deep Sleep 


MAINLP: If MakeOff (f1MKOF) is set then 
Set TurnOff (f1TNOF) 
Clear MakeOff (f1MKOF) 
Go to PWROFF 
If TurnOff (f1TNOF) is set then 
Go to PWROFF 
If CALC mode (f1CALC) is set then 
Give control back to CALC mode w/error 
Fast Poll (pMNLP) 
If in AUTO mode then 
Display Line; goto Wakeup 
MAINO5: If CALC mode (f1CALC) is set then 
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Give control back to CALC mode w/error 
Clear program annunciator & status bit 
Set Dormant flag (f1DORM) 

If ATIN key has been pressed then 

Go to ATININ 
If Don’t Prompt flag (f1NOPR) is set then 

Go to WAKEUP 
If scrolling needed (NEEDSC) then 

Allow user to scroll 
If ATIN key has been pressed then 

Go to ATININ 
Send prompt string consisting of 

Cursor off, prompt character(">"), 

Cursor on 

WAKEUP: If ATIN key has been pressed then 

Go to ATININ 
Clear Don’t Continue flag (NoCont) 
Collapse math stack 
Collapse AVMEMS,OUTBS,SYSEN to CLCSTK 
Clear Don’t Prompt flag (f1NOPR) 
Collapse statement buffer (bSTMT) 

Delete Immediate Execute Key buffer (bIEXKY) 
Set "Dormant" flag (f1DORM) 

Call Character Editor 

If Immediate Execute Key then 

Go to IEXKEY 
If its not a cursor up or down key then 

Turn off command stack mode (f1CMDS) 
Clear “Dormant" flag (f1DORM) 

Clear Attention Flag so HPIL won’t abort 
Move cursor to far right of display 
Go to appropriate place to process key 


Endline (LINEP) 
Attention (ATINTIN ) 
RUN key (RUNK) 
CONT key (CONTK) 
SST key (SST) 
Cursor Up (CURSU j) 
Cursor Down (CURSD}) 
Cursor Top (CURST j) 


Cursor Bottom (CURSB)) 
G-Attention (ATINTN ) 
CALC Mode key (CALC) 

Off key ( PWROFF ) 
Command Stack (CMDSTK) 


ATININ: Flush key buffer 
If line feed (LF) wasn’t last character sent to display 
then Call FINLIN to terminate previous display line 
Clear "need to scroll" flag (NOSCRL) 
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PUROFF: 


DSLEEP: 


DPSO10: 


DPS030 
DPSO35: 


DPS040: 


DPS200: 


Clear AUTIO mode 
Go to MAINLP 


Set f1PUDN 

Call DPSO10 to go to DSLEEP 

If there is an external command buffer 
Go to LINEP+ to process it 

If there is an STARTUP buffer 
Go to LINEP+ to process it 

Go to MAINLP 


Clear =f1PUDN flag (indicate that we were not 
Called from PWROFF). 

(Entry point for PWROFF). 

If ON key down 
Set ATIN flag and goto DSP040 

If display-clear flag clear then goto DPS030 
Send <cursor on>/CR/LF. 

Send <cursor off> 

Perform power-down poll. 

Set TURNOFF (flINOF) flag. 

Clear MAKEOFF (f1MKOF) flag. 

Turn off display. 

Clear f-g shift status bits. 

Clear AINFLG and ATNDIS. 

Turn off timer #3 (Low battery check). 

Activate KB row with ATIN key. 

SHUTDN. 


Configure. 

Deallocate external command buffer (to give poll 
handlers a chance to create one if we were 
called by PUROFF). 

Check clock system 

If ATIN key woke us up, goto DPS200. 

If program running and ON TIMER pending 

Clear =flINOF; goto DPS200. 

Perform pDSUNK poll (who woke us up?!?). 

If turnoff flag set and ATNFLG clear then 

goto DSP035 

Flush key buffer. 

Clear flALRM flag. 

=pDSUKY poll 

Password processing (does not require password if 
password=null or =flTNOF is clear). 

If failed to unlock machine (password required but 
not correctly given), goto DPS035. 

AC/BAT check 

RETURN 
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4.3. Interrupt Handling 


The HP-71 CPU has a limited interrupt structure. 
4.3.1 Causes of Interrupts 


4.3.1.1 Keyboard Interrupts 


An interrupt occurs whenever there have been no keys down and a key 
goes down. If there is already a key down then another key going 
down will not cause another interrupt. This type of interrupt is 
maskable. Only key rows activated by the lower 4 bits of the 
output register cause this type of interrupt. The ON-key does not 
cause this type of interrupt. 


4.3.1.2 ON-Key Interrupt 


This type of interrupt occurs when the ON (Attention) key is 
pressed. This interrupt is non-maskable. The ON-key receives 
Special treatement by the hardware and is scanned during each 
instruction to check whether this key is down. The content of the 
output register is unimportant. 


4.3.1.3 Module Pulled Interrupts 


As a module is being plugged in or pulled out, it will briefly 
complete a connection which signals the CPU that this is happening. 
The CPU latches a status bit that indicates that a module has been 
pulled. This type of interrupt is non-maskable. 


4.3.1.4 Other Interrupts 


The CPU input register bit 14 is available to all ports. An 
interrupt occurs if some module pulls on this line. This type of 
interrupt is closely related to keyboard interrupts. The system 
interrupt routine has no provisions for processing this type of 
interrupt except to allow interrupts to be vectored to a specified 
address. This type of interrupt is maskable. 


4.3.2 Interrupt Handling Algorithm 
The system interrupt routine starts at address OO00F. The 
interrupt routine saves the A,B,C,D0,Carry,Hex/Dec Mode and P 


registers. It then checks for a module pulled interrupt. It then 
checks if the CMOS test word is intact and performs a COLDSTART if 
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not. If the interrupt vector address is non-zero it jumps to it. 
Otherwise it waits approximately 16 milliseconds to debounce the 
keyboard and performs a keyscan. When the keyscan is completed, 
all the registers are restored and a return from interrupt is done. 


Save C(U) in R4 
Save R4(5-15) and DO in INTR4 
Save A(U) in INTA 
Save B(W) in INTIB 
Save 1 stack level, Pointer, Carry, and Mode in INIM 
If this is a module pulled interrupt 
goto MPI 
If Interrupt Ignore Flag is set 
Clear it and goto RESTORE 
If CMOS test word is invalid 
Perform Cold start 
If VECTOR is non-zero 
Jump to that address 
Wait 8/512ths second to debounce keyboard 
Call KEYSCN 
RESTORE: 
Restore Mode, Carry, Pointer and 1 Stack level 
Restore B(W) 
Restore A(W) 
Restore DO 
Restore C and R4 
Return from interrupt 


4.4 Statement Parse 


4.4.1 Initiation 
Statement parse is initiated in one of four ways, 


Statement parse usually begins when endline is entered from the 
keyboard. The display buffer moves to the command stack, which 
becomes the input buffer for parse (i.e., (INBS) is set to point to 
the entry in the command stack). 


Statement parse also begins when the computer turns on and an 
external command buffer or a startup buffer exists; (INBS) is set 
to point into that buffer. 


Statement parse is also initiated when a direct execute key is 


pressed; (INBS) is set to point at the key definition in the keys 
file. 
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TRANSFORM also initiates statement parse. 


In all cases, the’ output buffer is the destination of the internal 
token stream as it is generated. 


If the input line is a legal program line, the contents of the 
output buffer is edited into the current program. Memory 
associated with the output buffer is released. 


If the input line is a Calculator BASIC statement (including 
implied DISP) and computer is not performing a TRANSFORM, the 
compiled line is moved into the statement buffer and executed. If 
the computer is performing a TRANSFORM, an input line without a 
line number will cause a transform failure. 


4.4.1.1 External Invoking of Parse 


The entry point, LNPEXT, allows parse to be called externally and 
have control returned to the caller. This entry point will set a 
flag, f1RIN, to indicate external entry. Line parse will alter 
Status bits SO thru $11 and $13; these status bits should be saved 
by the caller if necessary. The pointer INBS should point at the 
Start of the line to parse, and OUIBS should point to the start of 
the output line. The input line must be terminated by a CR (ASCII 
13) and be preceded by a 3 nibble line length (similar to buffer 
format). 


lf the parser takes an abnormal exit, due to a parse error or 
insufficient memory, control returns to the caller, with the error 
in C(A) and the carry set. If the parse was successful, carry is 
Clear. 


On return, f1RTN should be cleared by the caller. See the LINEP 
routine for further information. 


4.4.2 Statement Parse Algorithm 


Algorithn: 


Entry point for externally invoking parse (LNPEXT) 
saves the caller’s return stack level in S-R0-2 
and sets the system flag flRIN. f1RIN flags that 
all error exits (including MEMERR) will return to 
the caller with carry set and the error number in 
C(A). Goto A. 


NOTE: Anyone using LNPEXT entry point MUST clear 
flRIN as soon as it returns to them! 
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LINEP: (normal statement parse entry point} 
Copy Display Buffer to Command Stack (MAKEBF) 
Set INBS to start of input line in command stack 
Send Carriage Return & Line Feed (CRLFOF) 
(so next character will clear display buffer) 


A: Set OUTBS to AVMEMS (Collapses Output buffer) 
Point Di to start of input line, using INBS 
Clear S0-S11, $13 
Set D(A) = End of Available Memory, using AVMEME 

DO = OUTBS (Output buffer start) 
Call Block 1 


Retokenize lexeme 
If line# 
Set S5; Decrement DO (delete statement 
length byte at buffer start); Output line# 
Call Block 2 
If tEOL 
If externally invoked (f1RIN set) 
THEN error 
ELSE clear AUTO flag; delete line 
B: Decrement DO 
Call Block 1. 
Retokenize. 


C: If Begin BASIC command (S3=1) 
THEN goto I. 
ELSE If System Command (S3=0,S0=1) 
THEN error 
D: LE 
THEN parse remark; goto M 
ELSE error. 
If externally invoked (f1RIN set) 
THEN error; 
Clear AUTO flag 
If tEOL (null line) 
THEN exit parse 
ELSE goto F. 


BLOCK 1: 
Save DO (statement length byte) in INADDR; 
Increment DO; Clear RESTART flag (S-R1-3); 
Clear Err# (S-R1-0); Call NTOKEN; 
Set RESTART flag if XWORD or XFN & 
save RESTART address (S-R1-2). 
Save contents of LEXPIR (position of D1 
before NIOKEN call) in SIMTDO - will be 
needed to restore input pointer for RESTART. 
Clear Middle of IF flag (S9). 
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Entry point for variable or tFN after THEN/ELSE: 


E: If variable or FN: 
set implied LET error flag. 
If no line# on line 
Clear AUTO flag 
F: If implied LET errors (S10 set) 
Restore D1i,DO from R3; Clear S10 
If not in Middle of IF (S9=0=>try Implied DISP) 
THEN try implied DISP 
ELSE Decrement DO 4 nibbles (tEXTIF & stmt len byte); 
Recover old INADDR from S-RO-0; Call GOSUBP; 
Goto K 
If looking at first lexeme on line 
If line# followed by ! 
set S5; output line#; save DO (location of 
statement length byte) in INADDR; increment 
DO; Parse remark; goto M 
If not a terminator (eg not tEOL,@,!,tELSE) 
If legal implied DISP statement followed by 
a terminator 
If no line number on line 
Clear AUTO flag; goto K: 
Restore D1,D0; return 
END OF BLOCK 1 


***Block 2 only returns if a label is not found*** 


BLOCK 2: 

Save DO (position of statement length byte) in 
INADDR; increment DO 
If quote 

Set appropriate flag(s); 

Step over it; Call FILEP+ 

If legal 

THEN If matching closing quote 
G: THEN if colon follows 
THEN LEGAL LABEL; 
Output tLBLST & label 
If tEOL follows 
THEN goto N 
ELSE goto L (parse as @} 
ELSE RESPTR; Return 
ELSE RESPTR; Return 
ELSE RESPTR; Return 

If 1st character is letter 

RESPTR; GNXTCR; FILEP1; Goto G 

END OF BLOCK 2 
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H: If not Calculator BASIC (S0=0) 
THEN If begin BASIC (S3=1) 


THEN error 
ELSE goto D. 
I: If in IF statement (S-RO-3 nonzero) 
Je If not legal after THEN/ELSE (S2=0) 
THEN error 


If pending THEN (S6=1) 
If token is IF token 
THEN error 


If XWORD 
THEN Output 3-byte token 
ELSE Output i-byte token 
Calculate Parse address 
Clear flags (S0,S8) 
Gosub to Parse routine  (CRGJMP} 
If Middle of IF return (Carry Set) 
THEN Extended IF token already output; 
INADDR points to following byte; 
DO is pointing past that byte 
S9 is set (middle of IF flag) 
| S-RO-3 is nonzero (IF in progress) 
If S5=1 
THEN goto C 
ELSE goto H 


K: Normal stmt return (carry clr) 
Get Next Token 
If ELSE 
If no pending THEN (S6=0) 
THEN error 
ELSE Clear S6; Decr DO; Output t@; 
Call SIMILN, UPDIN+; Output tELSE 
Call ELSEP; goto K 
Check legal stmt terminators (@,!,EOL) 
Clear 87 
If @ (Multi-statement line) 
L: THEN Set S7, Output t@ 
ELSE Tf 4 (Remark) 
THEN Output t!, Remark; goto M 
ELSE: if EOL 
M: THEN Output tEOL 
ELSE Error Exit --> Excessive Chars 
N: Output terminator 
Clear $10 (Implied LET error flag) 
Calculate & write out statement length 
If multi-statement line 
If $5=1 
THEN Call Block 2; Goto B 
ELSE Call Block 1; Goto H 
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Set AVMEMS to DO 
If line# found (S$5=1) 
If externally invoked (f1RIN set) 
THEN exit with carry clear 
ELSE Edit line into program memory (PEDIT) 
Return to Main Loop 
. Calculate output buffer length, move to 1/0 buffer 

area; call SYCOLL (Resets AVMEMS,OUTBS to SYSEN) 
Execute calculator BASIC Stmt {(RUNX+) 


See the portion of the algorithm handled in IFP 
in JP&PR3 


NOTES: Line parse only special checks for external invoking 
in 4 distinct places. 
1) eol, 2) line# followed by eol, 3) parse error, 
4} correctly parsed line about to be edited into 
program memory. 


Implied DISP is not legal immediately after THEN/ELSE. 
Implied DISP is not legal during TRANSFORM. 


4.4.3 Errors and Restart 


Often when a keyword parse fails, it is because the keyword was not 
initially recognized. For example: Assume there is a FORM keyword 
on a plug-in LEX file; FORM takes a single string expression as a 
mandatory parameter. Further assume the user types in: »>10 FORM=1 
TO 5 


FORM parse fails; a mechanism exists wherein the lexical analyzer 
is restarted to find FOR parse. This capability is set up in the 
main parse driver, and implemented in the parse error handler. 


4.4.4 Restart Algorithm 


Algorithm: 
If S4=0 
THEN RESPTR 
If RESTART flag (S-R1-3) set 
THEN goto RESTAR; 
ELSE If previously restarted (S-R1-0 [err#] #0) 
THEN Restore Dl to original error position 
using S-R1-1; Set DO from S-R1-0; 
If Implied LET error (S$10=1) 
Z Restore D1,D0 from R3; Clear S10; 
If not in middle of IF (S$9=0) 
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THEN try implied DISP 
ELSE Decrement DO 4 nibbles 
(over tEXTIF & stmt length byte); 
Recover old INADDR from S-R0-0; 
Call GOSUBP; 
Handle as error. 


4.5 Statement Decompile 


4.5.1 Initiation 


Statement decompile is called as a subroutine by DCPLIN whenever a 
BASIC program line is to be displayed for editing. DCPLIN is 
called by AUIO, FETCH, cursor up, cursor down, cursor top and 
cursor bottom. LIST and single step (SST) invoke’ statement 
decompile directly. The two "standard" entry points are: 1) 
LDCOMP, which updates CURRL (Current Line) and decompiles the 
entire line, and 2) LDCM10 (used by LIST), which decompiles the 
entire line without updating CURRL. The “single step" entry 
(LDSST1/LDSST2) decompiles only one statement. 


4.5.1.1  Cxternal lnvoking of Decompile 


Decompile can be externally invoked, using the LDCEXT entry. This 
entry sets the f1lRIN flag, so control returns to the caller in all 
cases, even if an error occurs. if this error occured. The flag, 
f1RIN, MUST be cleared by the caller on return. 


TRANSFORM utilizes this entry point. 


4.5.2 Algorithm 


LDCEXT entry: (external invoking of decompile - used by TRANSFORM) 
Saves caller’s return address in S-R0-2; Sets flRIN so in case 
of MEMERR will still return. Goto LDCM10. 


LDCOMP entry: (cursor up/cursor down) 
Update Current Line; 
LDCM10 entry: (LIST) 
Clear SST (S1) flag; 
LIST/SST entry: 
D(A)<--AVMEME; DO<--OUIBS; Decompile Line#; 
Save desired cursor position in LDCSPC (pointed to 
by DO); 
A: Save address of line length byte (pointed to by D1) 


4-13 








HP-71 Software IDS - Detailed Design Description 
System Control 


in INADDR; 


SST entry for multi-statement line: 
Step Di over statement length byte; Clear S8, S9; 
If label declaration (tLBLST) 
Step Di over tLBLST and 5 nibble chain length; 
Output quote; Call ASCICK; Output quote & colon; 
If at tEOL 
THEN goto OUTEOL; 
ELSE goto A. 
If variable (<6A) 
THEN goto LETDC. 
If user defined function (tFN) 
THEN goto ENDC. 
If remark (t!) 
THEN goto !DC. 
Call GTEXTI; 
If text not found 
THEN output ’XWORD’, followed by ID#; 
Use INADDR to get to end of statement; 
Goto OUTELA; 
Output text; Read in ist 6 nibbles of tokenized 
line into A; Copy A into C; Jump to decompile address. 


4.5.3. Decompile Routines 
For further details on decompile routines and writing decompile 


routines, see the “Statement Parse, Decompile, and Execute" 
chapter. 


4.6 Program Edit 


At edit time, all program execution stacks are collapsed. The 
FOR/NEXT and GOSUB/REIURN stacks are collapsed. The CALL stack is 
also collapsed. Only one set of variables exists. 





— 
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LOW $2 - - - - + + + + 
| Systen | 
| RAM | 
$—------- + - - + 
| Variable Pointers | 
oo - + 
Display Buffer | 
$e me a wae an ee + 
| Configuration | 

MAINST--> +---------------------- + 
| Files | 
CURRST--> +---------------------- + 
| 
PRGMST--> | 
| 
PRGMEN--> | | 
CURREN--> +---------------------- + 
| | | 
(IOBFST) | Vv | 
MAINEN--> +---------------------- + 
| Buffer List 
INBS ---> +---------------------- + 
| Input Buffer | 
QUIBS --> +---------------------- + 
| Output Buffer | 
CLCBER--> +---------------------- + 
| Command Stack | 
CLCSTK--> | | 
AVMEMS--> +---------------------- + 
| Available Memory | | 
| v | 
| 
AVMEME | | 
ACTIVE--> +---------------------- + 
| Variables | 
RAMEND--> +---------------------- + 
HIGH 
4.6.1 Global Assumptions 
If PEDITD entry, S8 set indicates the line to PEDIT is mull, i.e., 
the line number followed by EOL. 
4.6.2 Program Edit Algorithm 


PEDIT: Clear null line flag ($8); 
PEDITD: If current file not BASIC or if protected 
THEN error; 
4-15 
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PEDITM: Zero out all GOTO/GOSUB links; 
Update current line; 
Collapse stacks; 
If mill line 
THEN collapse output buffer; 
If line exists 
THEN set R3 to line length 
ELSE set R3 to 0; 
Call RPLLIN 
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5.1 BASIC Interpreter 


5.2 Entering the BASIC Interpreter 


The BASIC interpreter is entered through tuo entry points: BSCEXC 
and BSCEX2. The first entry point is used when executing from the 
Keyboard. The second entry point allows the "Don’t Continue" 
(NoCont) flag to be set, indicating that execution will halt after 
the next statement is executed. This entry point is used for 
Single Step execution, RUN, CONT and CHAIN. 


The global flag, PgmRun {S13), is set before entry if a program is 
executing. 


A Fast Poll (pBSCEN) is sent out when entering the BASIC 
interpreter. 


The BASIC interpreter executes a statement at a time, not an entire 
line. The current BASIC program counter (PCADDR) is updated to the 
Statement length byte of the statement to be executed. Status 
(SO-1i1) are cleared. If the begin token of the statement is a 
BASIC statement token, the execution address is computed and jumped 
to. Otherwise, the statement is assumed to be an Implied LET 
statement and Assignment Execute is called as a subroutine. 


5.3 Reentering the BASIC Interpreter 


Most statements return to the BASIC Interpreter through a direct 
jump to NXISIM. NXTSIM computes the address of the next statement, 
using the current program counter address (PCADDR) and the 
corresponding statement length. NXISIM jumps directly to the BASIC 
Loop (at RUNRIN), with the data pointer (D0) positioned at the next 
statement to execute (DO is actually at the statement terminator 
just prior to the next statement to execute). This mechanism was 
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developed to allow execution routines an additional subroutine 
level, rather than using a hardware return stack level to jump to 
each routine and having them do a machine code ’RIN’. 


Statements that change program flow, such as GOTO, GOSUB, CALL, END 
SUB, and FN, jump directly back to the BASIC Loop with the data 
pointer (DO) set at the appropriate “next statement" address. 


Error Exits from BASIC (through MFERR or BSERR), return to RUNRT1 
with the data pointer (DO) at the statement in error. 


RUNRT1 explicitly clears sENDx, a status to indicate an END 
statement execute, allowing execution routines to use this status 
internally. NXTISIM explicitly clears this flag. 


The Math Stack is collapsed at the end of every statement execute. 

Since Expression Execute (EXPEXC) does not collapse the Math Stack, 

this clean up is necessary between statements and eliminates the 
need for individual execution routines to do it. 


Exceptions are checked at the end of every statement. See the 
section below on Exception Handling. 


5.4 Exiting the BASIC Interpreter 


A global flag, NoCont (S14), indicates if program or statement 
execution is Not to Continue. This flag is set several ways: 
Single Step sets NoCont before the "continue" statement is 
executed; PAUSE, Ending or Stopping a Program, Error Exit, hitting 
the ATIN Key, GOTO from the keyboard, also set NoCent. 

RETURN, END, ENDSUB, ENDDEF executed from the keyboard and returning 
to program execution set NoCont. 


The ERROR exit flag (SERROR) is set when the error message handler 
jumps to ERRRIN. In all other returns, this flag is cleared. 


If execution is to continue, the BASIC Interpreter continues by 
executing the next statement. If execution is to stop. several 
things are done. The program annunciator is cleared. The filetype 
of the current file is checked. If the file is non BASIC ora 
program is not running, all open file buffers are flushed, unless 
an error ocurred (sERROR). The Fast Poll: pBSCex is issued. 


Non BASIC file execution that is interrupted due to an error exit 
are not "SUSPended" like a BASIC program. Responding to the pBSCex 
poll can change this. 


If the current program is BASIC and the current statement is not an 
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END or STOP statement (sENDx=0), the continue address (CNTADR) is 
set at the current DO and the SUSP annunciator is lit. 


The current DO is the "next statement" to execute if execution is 
continued. In the case of Errors, the “next statement" is the 
statement generating the error. IF/THEN execution could pause with 


the "next statement” at the ELSE clause. If the next statement 
execution token is "ELSE", a statement skip is done to position the 
next statement execution past the ELSE clause. For END statement 
execution, there is no next statement to execute. The continue 


address has been zeroed and must not be updated. 


The current line is computed and updated, to reflect where the 
program halted. 


Statement execution (from the keyboard/statement buffer) halts when 
End of Line is reached. When beginning to execute the “next 
statement” of a program, if the next statement address is past the 
current program end, an END statement is executed. 


Except for errors, all exits from the BASIC Interpreter flush open 
file buffers. This can not be done for an error because an error 
generated from attempting to flush file buffers would cause an 
infinite loop. All exits from the BASIC Interpreter issue a Fast 
Poll (pBSCex) when exiting the BASIC Interpreter and clear the 
NoCont flag. Control jumps to the Main Loop. 


5.5 Exception Handling 


Except in the case of an error, execution exceptions are checked at 
the end of every statement. Exception checking is skipped for 
errors so timer expiration execution will not continue after an 
error message is generated. 


A global status flag, Except (S12), indicates an exception has 
occurred. This flag can be set at various times during statement 
execution, to indicate an exception has occured and service may be 
required at the end of statement execution. 


An exception is a software interrupt--a condition which will be 
serviced after execution of the current statement. An exception is 
ALWAYS set by software, although the software may be setting it 
because of a hardware condition. The computer’s procedure for 
checking exceptions is as follows: 


If mo exceptions have occured (Except is clear), a hardware 
Service request is issued (SREQ?). If no hardware service 
request results, timers are checked for expiration. If no timers 
expired, there are no exceptions to service. 
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If an exception (Except is set) or hardware service request 
occurs, CKSREQ is called. This routine, explained elsewhere, 
checks for hardware service requests which can be handled by the 
mainframe: expiration of any of the three countdown timers. 
Then, if a hardware service request is still pending OR the 
software exception flag (Except--Si2) is set, a pSREQ poll is 
issued. This is the opportunity for other device-handling 
software (HPIL, for example) to do whatever it needs to do. This 
is also an important spot for any external clock system (pocket 
secretary, instrument controller, etc.) to schedule alarms. 


After CKSREQ, if the exception flag is set, it is cleared and a 
pEXCPT poll is issued. Unlike pSREQ, which may occur between or 
during statements, pEXCPI occurs at a weil-defined spot, and 
therefore allows more latitude in what can be done during poll 
handling. See the poll documentation header for more 
information. The ATIN/ON Key is checked after this poll. 
If a program is running when exceptions are checked, Pending Alarm 
RAM is checked by calling ALMSRV to see if one of the three BASIC 
timers has expired. If a timer has expired and the associated ON 
TIMER address is within the current program scope, the ON TIMER 
code is executed. Control returns to the BASIC Loop through normal 
statement execution return at RUNRIN/RUNRT1. 


5.5.1 Servicing Clock System Exceptions 


Exception handling is one of the prime times to service the clock 
system. The system provides an external alarm “slot” for use by 
all applications which need to schedule alarms. The pSREQ and 
pEXCPT polls provide an opportunity to schedule alarms and to SET 
UP to process alarms. Although alarms cannot actually be processed 
during these polls (except for non-disruptive events, like 
beeping), it is possible to set up a command buffer or some such 
mechanism for later processing. 


See the "Clock System" chapter for details about the clock system. 
5.5.2 Algorithm 


BSCEXC: Clear No Continue of Program flag (NoCont) 
BSCEX2: Place current DO into R0 
Fast poll on entering BASIC interpreter (pBSCen) 
If not running (not PgmRun) 
goto BSCX+ 
BSCXLP: Read & Move past EOL | 
If EOL and not running 
go exit BASIC (goto BSCEXT) 
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If (multi-statement line) 
go Update PC address 

If End of current program 
go execute END statement 

Skip line 

BSCX+: Save addr statement length byte 

Skip statement length byte 

Clear status (S0-S11) 

Read Begin BASIC token 

If not Begin BASIC token range 
Call Assignment Execute 
Skip to next statement 

else 
Move past BASIC token 
Calculate Execution addr 
Jump to Execution routine 


(goto BSCX+) 


(PCADDR) 


(BASICs) 


(NXTSTM) 


(EXCADR) 


Statement Execute Return: (from NXTSIM or directly) 


RUNRT1: Clear END execute flag (sENDx) 
RUNRIN: Clear Error flag (sERROR) 
ERRRIN: Collaspe Math Stack 
If ERROR 
Skip exception checking (goto 6) 
If no exceptions (Except=0) 
If no hardware service request 
If any pending alarm set (PNDALM) 
Save DO on stack 
go Process timers (goto 3) 
go continue (goto 6) 
Save DO on stack 
Check Service requests (CKSREQ) 
If no exceptions (Except=0) 
go Restore DO and continue (goto 5) 
Clear Exception Flag (Except) 
Fast Poll on Exception (pExcpt) 
Restore low status from DSPSTA (USRSTA) 
3: If ATIN Key hit (CKON) 
Set NoCont flag ($14) 
If Program running 
Load mask to check Timer bits 
Read Pending Alarm field 
4: If Timer expired (Bit 01112 of PNDALM) 
Get Timer Address 
If non-zero Timer address 
Verify address in prgm scope (SCOPCK) 


If within scope 


Clear timer bit in PNDALM 

Enable another Timer to be serviced 
C <-- ON TIMER address 

Set ONTIMER statement flag 
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go process ON TIMER statement 


go Check if any other Timers off (goto 4) 
5: Restore DO from RO 
Clear Error occured flag (sERROR) 
6: If Contime 
go process next of statement (BSCXLP) 
else 
BSCEXT: Clear PRGM annunciator (SflgCp) 
Read filetype ( RDCHD+ } 
If non-BASIC file { BASCHK } 
go exit BASIC (goto BSCEX+) 
If not running 
go exit BASIC (goto BSCEX+) 
else 
If not END/STOP execute (sENDx) 
If ELSE 


Skip to End of Line 
Update Continue Address 
Set SUSP Annunc/Flag 
Compute & update current line 
BSCEX+¢ : 
If not an error 
Flush all open files 


Fast Poll on Exiting BASIC interp (pBSCex} 
Clear Don’t Continue flag 
golong MAIN Loop (MAINLP) 


5.6 Immediate Mode 


Whenever a line without a line number preceding it is legally 
parsed, that line is executed immediately. 


The BASIC Interpreter is entered at BSCEXC. The program running 
flag (PemRun) is clear. 


5.6.1 Statement Buffer 


An immediate execute line is moved from the output buffer into the 
Statement buffer before being executed. The statement buffer is 
always the first buffer in the Buffer chain, ensuing that only 
movement of mainframe files affects the value of the BASIC program 
counter. 
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5.7 Program Execution 


Program Execution begins through the RUN Key, RUN statement, CHAIN 
statement, CONT Key, CONT statement and the SST Key. 


Before running @ program, several things are done. If a filename 
is specified in the RUN statement, the Current File pointers are 
changed to point to the file. In the case of CHAIN, the current 
file is purged. 


If the filetype is neither BASIC nor binary, a poll is issued 
(pRUNft) allowing a Lex File to take over the RUN/CONT/CHAIN 
statement. 


Except for continuing or single stepping at a valid contime 
address, program scope is recomputed and reset. All labels and 
user defined functions are chained. In case any of the direct 
execute keys (RUN, CONT, SST) were hit within Auto Mode, AUTO Mode 
is cleared. 


If the program file is empty, control returns to the Main Loop. 


In the case of RUN or CHAIN, all BASIC stacks are collapsed. For 
RUN, the Assign Table and all FIB entries are deleted. 


For CONT and SSI, if the contimue address (CNIADR) is non-zero, 
execution is continued at this address. Otherwise, CONT and SST 
begin execution at the first statement of the program, after 
collapsing stacks, deleting the Assign Table, and deleting all FIB 
entries (acts as a RUN}. A CONT execution collapses the Statement 
Buffer to prevent a subsequent “Return to Keyboard" in a paused 
program from returning incorrectly to the Statement Buffer 
containing “CONT”. 


The suspend annunciator is cleared, the program running flag is 
set, along with the PRGM annunciator. 


If abinary program is to be run, a poll is issued (pRUNnB), 
indicating beginning execution of a non-BASIC file. The binary 
file type is passed. On return from the poll, the binary code is 
branched to by pushing its address on the hardware return stack and 
doing a machine code ’RIN’. The binary program exits by branching 
to the EXITRN entry point in the RUN statement code; this clears 
flags and exits through BASIC. 


If a BASIC program is to be run, the BASIC interpreter is entered 
at BSCEX2. 
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5.8 TRACE Mode 


TRACE mode can be used to help to debug a program and is entered 
and exited by executing the TRACE statement. 


The nibble TRACEM in the system RAM indicates the trace mode: 
TRACEM Meaning 


we ee we oe re ee eee ee ee we ee oe ee we ee we ee wee ee we ee ee we ee we ee ee ee ees ee 


0 Not in trace mode at all. 

2 Only in trace flow mode 

4 Trace all variable assignments 

6 In both trace flow and trace variables 


The status bit 15 is used as trace flag. When TRACEM = 0, S15= 0, 
When TRACEM #0, S15= 1. Trace mode is a global status. 


Variable assignment will be traced when run through the STORE entry 
point at the assignment routine. S-R1-2 in statement scratch RAM 
must contain the address of variable token in the assignment 
statement. If the the content of the S-Ril-2 is zero, the 
assignment will not be traced. 


5.9 Global Assumptions 


Several flags have global meaning during BASIC Interpreter 
execution: 


Except (S12) Exception has occured 
PgmRun (S13) Program Running 

NoCont (S14) No Contimue of execution 
Trace (S15) TRACE Mode active 


On entering the BASIC Interpreter: PgmRun (S13) is set if program 
execution is to begin, NoCont (S14) is set if execution is to halt 
after the next statement is executed. 


On reentering the BASIC Interpreter: NoCont (S14) is set if 
execution is to halt, DO points at “next statement” to execute (at 
the EOL or @of the statement just executed), sENDx is clear, 
unless an END or SIOP statement. NXISIM and RUNRT1 will clear this 
flag. 
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This chapter discusses the Language Extension (LEX) and Binary 
(BIN) file types, which are useful in writing and distributing 
software for the HP-71. 


The LEX file type is the more powerful of the two, for it extends 
the HP-71 BASIC language. The operating system automatically 
incorporates each LEX file in memory into the lexical scanning 
process of the interpreter. In this way the LEX file may add 
Statements, functions, and other keywords to the HP-71 operating 
system. A LEX file may also implement sophisticated capabilities 
by responding to the various polls issued by the operating system. 


The BIN file type may contain a main program written in HP-71 
assembly language. A binary main program can be invoked directly 
through the RUN and CALL statements. 


The BIN file type may contain one or more subprograms in machine 
language, as opposed to subprograms stored in a BASIC file, which 
are stored in tokenized form and are interpreted rather than 
executed directly by the CPU. BIN file subprograms can be CALLed 
from BASIC in the same manner as BASIC subprograms, and are used 
when the higher speed of assembly language is needed, or special 


access to system resources is required and not accessible through 
BASIC. 


6.1 LEX File Structure 
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After the file header is the following information: 


LEX ID 1 byte 

Lowest Token # - 1 byte 

Highest Token # 1 byte 

Next LEX Table Link 5 nibbles 

Speed Table Exists? 1 nibble \ 

Optional Speed Table 78 nibbles > 1 nibble if no 
Speed Table Exists? l nibble / SPEED table 
TEXT Table Offset 4 nibbles 

Message Table Offset 4 nibbles 

POLL Handler Offset 5 nibbles 

MAIN Table 9 * # keywords (nibbles) 

TEXT Table 3 * # keywords + 2 * total # chars + 3 


(nibbles) 


Message Table 

Poll Handler Code 
Execution Code 

Optional Next LEX Table 


LEX ID: 1 byte This identifies the LEX file. An XFN (external 
function) or XWORD (any other external keyword) is completely 
specified by the LEX ID and the TIOKEN#; these two bytes are 
included in the tokenization of an XWORD or XFN. LEX IDs are 
assigned according to a procedure outlined in the “HP-71 Resource 
Allocation" chapter. 


LOWEST IOKEN#: 1 byte Lowest token number in this LEX table. 
HIGHEST TOKEN#: 1 byte Highest token mumber in this LEX table. 


NEXT LEXTABLE LINK: 5 nibbles Offset to another LEX table, allowing 
tables to be linked together within one file for easy 
distribution. 00000 if no link. 


SPEED TABLE: 1 nibble or 80 nibbles Ina LEX file with many 
keywords, a speed table is used to speed up searching of the text 
table; for each letter, A-Z, is an offset into the text table, 
pointing to the keywords beginning with that letter. 


In a LEX file with few keywords, the speed table is omitted to 
save space. If the speed table is to be omitted, the single 
nibble “F" is placed here. 


If the speed table is to be included, the format is as follows 
(shown here in HP-71 Assembler input format): 
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NIBHEX 0 

CON(3) <aaa> 
CON(3) <bbb> 
CON(3) <cec> 
CON(3) <ddd> 
CON(3) <eee> 
CON(3) <fff> 
CON(3) <ggg> 
CON(3) <hhh> 
CON(3) <iii> 
CON(3) <jjj}p> 
CON(3) <kkk> 
CON(3) <11l1> 
CON(3) <mmm> 
CON(3) <nnn> 
CON{3) <oo0o> 
CON(3) <ppp> 
CON(3) <qqq> 
CON(3) <rrr> 
CON(3) <sss> 
CON(3) <ttt> 
CON(3) <uuu> 
CON(3) <vvv> 
CON(3) <www> 
CON(3) <xxx> 
CON(3) <yyy> 
CON(3) <zzz> 
NIBHEX 0 


The 0-nibble at either end serves to identify the presence of the 
speed table whether the code is looking for it from above or 
below. (Similarly, the single F-nibble identifies the absence of 
the speed table whether the code is looking for it from above or 
below. ) 


The quantities <aaa>, <bbb>, <ccc>», et cetera are offsets into 
the text table. The text table is maintained in approximately 
alphabetized form (see TEXT TABLE below for more detail), and the 
3-nibble quantities in the speed table identify the position of 
each alphabetic-character’s first entry RELATIVE to the start of 
the text table. 


EXAMPLE: 

If the first entry starting with the letter "P" is at address 
126 (decimal) relative to the start of the text table, the line 
appearing as "CON(3) <ppp>" above would actually be "“CON(3) 
126". 


If there are no keywords beginning with a particular letter, the 
3-nibble offset for that letter should be the size of the entire 
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text table. 


EXAMPLE: If the text table is 459 (decimal) nibbles long and 
there are no keywords beginning with Q, the line appearing as 
“CON(3) <qqq>" above would actually be “CON(3) 459". 


TEXT TABLE OFFSET: 4 nibbles Offset from current location to the 
second nibble of the text table (start of first text string). If 
the beginning of the text table is labeled “TxTbSt", an 
assenmbly-language psuedo-op to properly fill this location would 
be: 


CON(4) (IxTbSt)+1-(*) 


MESSAGE TABLE OFFSET: 4 nibbles Offset from current location to the 
beginning of the message tables. The message table must be 
structured to work with the message-handling system described in 
the "Message Handling” chapter. If there is no message table, 
the value should be zero. 


POLL HANDLER OFFSET: 5 nibbles Offset from current location to the 
poll handler for this LEX file. If there is no poll handler, 
this should point to an RINSXM instruction. Since the RINSXM 
instruction is a "00", setting this field to "00000" will point 
it at itself, which will conveniently turn out to be an RINSXM 
instruction. 


MAIN TABLE: 9 * (# of keywords) nibbles The Main Table contains 
information needed to run or to decompile every token in the LEX 
file. The entries are in token number order. The first table 
entry corresponds to the lowest token # in the LEX file, the 
second table entry corresponds to the next token #, et cetera. 


Each main table entry takes 9 nibbles and is formatted as 
follows: 


TEXI TABLE OFFSET: 3 nibbles This is the position of the 
corresponding text in the text table for this keyword, 
relative to the start of the text table. This points at the 
START of the text table entry--the nibble count, which is one 
nibble before the start of the actual text (see description 
of TEXT table below). 


‘EXECUTION ADDRESS: 5 nibbles Offset relative to current 
location of start of execution code for this keyword. The 
corrsponding parse address for the token is 5 nibbles above 
the start of the execution code. The corresponding decompile 
address for the token is 10 nibbles above the start of the 
execution code. 


CHARACTERIZATION NIBBLE: 1 nibble The characterization nibble 
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categorizes a token during statement parse. If the keyword 
is a function (string or numeric), this nibble is always a 
hex "F". Otherwise, the four bits of this nibble mean the 
following: 


bit 0: Calculator BASIC (Legal from the keyboard) 
bit 1: 0 (unused) 

bit 2: Legal after THEN/ELSE 

bit 3: Begin BASIC (Programmable) 


Some examples follow: 


For keywords which are programmable, legal after THEN/ELSE, 
and legally executed from the keyboard, the characterization 
nibble is "D"; an example is the DISP keyword. 


For keywords which are used strictly as intermediate keywords 
(such as PORT in the mainframe), the characterization nibble 
is. "0". 


Non-programmable commands (like FREE and EDIT) which are 
legal after THEN/ELSE should have a characterization nibble 
of "5"; note that a keyword which is Calculator BASIC, but 
not Begin BASIC, is interpreted as non-programmable. 


On the other hand, a keyword which is Begin BASIC but not 
Calculator BASIC, is not executable from the keyboard, but 
only makes sense within the context of a program; the DATA 
keyword, which has a characterization of "8", is an example 
of such a keyword. 


In all cases, bit 1 of the characterization is unused. 


TEXT TABLE: 3*{# of keywords) +2 * (total # chars) + 3 nibbles 
Strictly speaking, the text table does not have to reside 
immediately after the main table. It can reside anywhere since 
its address is specified in the header. The text table contains 
the text representation of all keywords in the LEX file, and is 
used by the parse and the decompile drivers. 


Entries in the Text Table are in alphabetical order with one 
important difference: a shorter keyword which comprises the first 
part of a longer keyword, occurs AFTER the longer keyword. In 
other words, the keyword "ABC" must appear after the keyword 
“ABCD". If this is not done, the parse driver (which scans the 
text table linearly from beginning to end) will never find the 
keyword “ABCD” because it will match on the keyword "ABC" first. 
(Equivalently, for purposes of sorting the keyword list, the 
keywords can be considered to be padded with "FF"s out to eight 
bytes. ) 
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The entry for each keyword in the text table has the following 
format: 


(SIZE OF TEXT - 1) IN NIBS: 1 nibble If the text is 2 chars (4 
nibs), this field = "3". If the text is 3 chars (6 nibs), 
this field = "5". And so on. Needless to say, the maximum 
value for this field is "F", implying that the maximum length 
of a keyword is 8 characters. 


TEXT: 2-8 bytes (as specified above) Text of keyword in ASCII. 
Note that keywords must be at least two characters long, 
since one character keywords would conflict with variable 
nanes. 


TOKEN #: 1 byte 
Token # of this keyword. 


The Text Table is terminated with the nibbles “iFF". 


EVERYTHING ELSE: This ends the list of required components of a LEX 
file. All that is needed now is the following: 


1) MESSAGE TABLE If there is a message table for this LEX file, 
its address is specified in the header. The message table 
must conform to the standard message table format; the first 
byte contains the lowest message#, and the second byte 
contains the highest message#. 


When calling the mainframe message routines (BSERR and 
MFWRN), a message within this table is specified by the LEX 
ID# in C{3-2] and the message number in C[B]. 


See the “Message Handling" chapter for further details. 


2) POLL HANDLER Offset to the poll handler’s address is 
specified inthe header. See the section on polling for 
further details. 


3) STATEMENT /COMMAND/FUNCTION EXECUTION CODE The execution code 
of the statement, command, or function. Statement execution 
entry points are preceded by decompile and parse addresses; 
non-programmble statement execution entry points are preceded 
by a parse address only; function execution entry points are 
preceded by a parameter count and description. 


6.1.1 How it All Works 


The SPEED Table, MAIN table and TEXT table are the tools with which 
the BASIC language is extended. The mainframe keeps a directory of 
all the LEX files in the machine, and refers to this directory at 
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parse, decompile, and execution time. See the LEX Entry Buffer 
section under the "Table Formats" chapter for details. 


6.1.1.1 Parsing 


When the lexical analyzer (NIOKEN) is trying to tokenize text, it 
searches the LEX file text tables for a matching string. If there 
are a lot of keywords in the LEX file, the presence of an optional 
speed table speeds this searching. 


Once a matching string has been found, the lexical analyzer reads 
the token number associated with the keyword. This token number 
serves as an index into the main table. The main table provides 
the execution address. 


For a statement, the code at the execution address is immediately 
preceded by a 5 nibble offset to the corresponding parse routine, 
so that the parse driver is able to find the parse routine for a 
particular statement. 


For a function, the execution code is immediately preceded by the 
parameter count and parameter descriptors; these are used by the 
expression parser to parse the function. 


6.1.1.2 Decompiling 


When decompiling, the decompile driver has a token mumber and a LEX 
ID mumber. The LEX ID number and token number locate the proper 
LEX file; the relative token number serves as an index into the 
main table. From the main table the decompile driver fetches the 
following: 


1} The location of the text table entry for the text of the 
keyword, and 


2) The execution address. For a statement, ten nibbles prior to 
the execution address is the five nibble offset to the 
corresponding decompile routine; this is used by the decompile 
driver to invoke the decompile routine for a particular 
statement. 


For a function, the expression decompiler uses the parameter 
count and parameter descriptors which immediately precede the 
execution address to decompile the function. 


6.1.1.3 Execution 
When executing an external statement or function, the LEX ID and 
token number are used to locate the proper LEX file. The relative 


token numbers serves as an index into the Main table. The 
execution address is calculated and jumped to, beginning execution 
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of the keyword. 


6.1.2 How to Create a LEX File 


The HP-71 provides no mechanism to create a LEX file other than to 
copy it from an external device or to POKE it into a file chain. A 
number of tools have been used by the HP-71 software development team 
to assist in creating LEX files. They are described below. 


6.1.2.1 HP-71 Assembler 


An assembler is obviously the most important tool. The HP-71 
assembler is available both in the HP-71 Assembler/FORTH ROM, as well 


as ina special set of programs which run on the HP200 series 
machines. 


Note that assembly language examples given in this section are in the 
proper format for the assembler which was used by the HP-71 mainframe 
software development team. 


6.1.3 Symbolic Referencing 


Following are copies of the mainframe and built-in XWORD tables which 
comprise every keyword token in the mainframe; these files were used 
to generate all the necessary tables. Note that in the first table 
all the token names are given as starting with >t’, indicating 
one-byte tokens. In the second table (as with all LEX’ files), all 
the token names begin with ’x’, indicating these are not complete 
tokens, but only the first byte. of a three-byte token. We discuss 
later how to build the symbolic for the complete three-byte token. 


6.1.3.1 Mainframe Tokens 
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RINSXM MAINTS 00 
JHE GHEE GJHHHHHE JHHHHHE JHOHHHE JHHHHEE 4He 


aA aw ~ a an aA “aw 


File Msg Poll EQF TblNam TblLnk ROM# 


** a AAAAM a na Aw 

*T T BLSC E T C 

¥o e eeya xX 0 0 

id K gesl e k mn 

¥e t latc c e nm 

¥n nle u n e 

- mB t n 

* BA A i n t 

* AfCS 0 a 

ms Stn] n mn 

* IedC e 

= Cr A 

* d 

* d 

* r 

* 

* 

00 EN FN-GO FN (lex only) 

00 GO GO (lex only) 

01 TRMNTR Dummy Fill 

02 BLDNUM tINTi2 12-Digit Integer 
03 BLDNUM tINT11 11-Digit Integer 
04 BLDNUM tINT10 10-Digit Integer 
05 BLDNUM tINT9 9-Digit Integer 
06 BLDNUM tINT8 8-Digit Integer 
07 BLDNUM tINI7 7-Digit Integer 
08 BLDNUM tINT6 6-Digit Integer 
09 BLDNUM tINT5 5-Digit Integer 
OA BLDNUM tINT4 4-Digit Integer 
OB BLDNUM tINT3 3-Digit Integer 
OC BLDNUM tINI2 2-Digit Integer 
OD TRMNIR [Unused] 

OE TRMNTR tLBLRF Label Reference 
OF TRMNIR tLINE Line Number 

10 TRMNIR tBIG Constant Too Big 
11 TRMNTR tSMALL Constant Too Small 
12 BLDNUM tFLT12 12-Digit Float 
13 BLDNUM tFLT11 11-Digit Float 
14 BLDNUM tFLT10 10-Digit Float 
15 BLDNUM tFLT9 9-Digit Float 

16 BLDNUM tFLT8 8-Digit Float 

17 BLDNUM tFLT7 7-Digit Float 

18 BLDNUM tFLT6 6-Digit Float 
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BLDNUM 
BLDNUM 
BLDNUM 
BLDNUM 
BLDNUM 
TRMNTIR 
TRMNTR 
TRMNTR 
TRMNTR 
STRLIT 
TRMNIR 
TRMNTR 
TRMNIR 
TRMNTIR 
STRLIT 
TRMNTR 
TRMNTR 
TRMNIR 
TRMNTR 
TRMNTR 
STRING 
TRMNTR 
TRMNTR 
ONEDGT 
ONEDGT 
ONEDGT 
ONEDGT 
ONEDGT 
ONEDGTI 
ONEDGT 
ONEDGT 
ONEDGT 
ONEDGT 
TRMNTIR 
TRMNTR 
TRMNIR 
TRMNIR 
TRMNTR 
TRMNTR 
TRMNTR 
STATIC 
STATIC 
STATIC 
oTATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 


tFLT5 
tFLT4 
tFLT3 
tFLT2 
tFLT1 


tSVAR 


a0 
al 


a3 
a4 
a5 
a6 
a7 


a9 





Description 


5-Digit Float 
4-Digit Float 
3-Digit Float 
2-Digit Float 
1-Digit Float 


[Unused] 
{Unused ] 
[Unused] 
(! 


VENA : 
See ere ee eee Saree “eee “eee” 


* 


+ 


OR EE REN EEO ON 


ctw 


“Ne 


Digit) 


C MODE 


eee ee ee ee ese eens 


ww es Vv paws 


(Static 
(Static 
(Static 


AaHDmOamWMIAI WP ARO RR KO DIMM EPWNPRPORARNS 


(Static 
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ing Variable 


(String Delimiter) 


(String Delimiter) 


(=) 


ASNMNI OPRIR 


Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
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1111 
ddd 
1111 
tTLE 
2114 
Lyd 
1111 
1111 
1174 
LTA 
1111 
1111 
1111 
1111 
1111 
iii 
1rd 
raid 


STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
STATIC 
TRMNTR 
TRMNTR 
TRMNTR 
TRMNIR 
TRMNTIR 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
DYNAMC 
IP 


EPS 
CEIL 
KEY$ 
MOD 
ERRL 
ERRN 
DATE 
DATE$ 
PI 
CMPLX 
TIME 
FN 
ARRAY 


tZ 


tADIGO 
taDIG1 
tADIG2 
tADIG3 
tADIG4 
tADIG5 
tADI G6 
tADIG7 
taDIGSs 
tADIGS 
tIP 
tFP 
tMAXRL 
tRMD 
tRAD 
tDEG 
tINF 
tEPS 
tCEEL 
tKEY$ 
tMOD 
tERRL 
tERRN 
tDATE 
tDATE$ 
tPI 
tCMPLX 
tIIME 
tEN 
tARRAY 


{Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 
(Static 


Amn RAN MME KOCH HNDWO VO Z Ker 


Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 
Variable) 


DATE 
DATE$ 
PI 
CMPLX 
TIME 
FN 
ARRAY 


Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 
Variable 


WOMAN ANFA WNP SO 


DMARRY tDMYAR Dummy array 
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7F 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
8A 
8B 
8C 
8D 
8E 
8F 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
9A 
9B 
9C 
9D 
SE 
OF 
AO 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
AS 
AA 
AB 
AC 
AD 
AE 
AF 
BO 
Bi 


RES 
NOT 


DIV 


AND 
EXOR 
OR 


LOG 


SQR 
LOG10 
EXP 
TIME$ 
SIN 
COS 
TAN 
ASIN 
ACOS 
ATAN 
INT 
MEAN 
SDEV 
PREDV 
RND 
SGN 
ABS 


CHR$ 
VAL 
STR$ 


FACT 
LEN 


UPRC$ 
MIN 
MAX 
IVL 
OVF 
UNF 
DVZ 


1111 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 


1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
iit 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
111i 
1111 
1111 


RES 
INVLUT 
NOT 
MINUS 
MULIPY 
DIVIDE 
PERCNT 
DIV 
PLUS 


CONCAT 
COMPAR 
AND 
EXOR 
OR 
EXPR 
EXPR 
LOG 
LOG 
SQR 
LOG10 
EXP 
TIME$ 
SIN 
cos 
TAN 
ASIN 
ACOS 
ATAN 
INT 
MEAN 
SDEV 
PREDV 
RND 
SGN 
ABS 
NUM 
CHR$ 
VAL 
STR$ 
SUB$ 
FACT 
LEN 
LPRP 
UPRC$ 
MIN 
MAX 
IVL 
OVE 
UNF 
DVZ 


tRES 
t* 
tNOT 
t- 
t* 
t/ 
t% 
tDIV 
t+ 


t& 
tRELOP 
tAND 
tEXOR 
tOR 


tLOG 
tLN 
tSQR 
tLOG10 
tEXP 
tTIME$ 
tSIN 
tcos 
tIAN 
tASIN 
tAcos 
tATAN 
tINT 
tMEAN 
tSDEV 
tPREDV 
tRND 
tSGN 
tABS 
tNUM 
tCHR$ 
tVAL 
tSTR$ 
tISUB$ 
tFACT 
tLEN 
tLPRP 
tUPRC$ 
tMIN 
tMAX 
tIVL 
tOvVF 
tUNF 
tDVZ 


RES 

* (INVOLUTION) 
NOT 

- (Unary) 

*%& 


/ 

% 

DIV 

+ 
{[Unused] 
& (CONCATENATE) 
Relational operators 
AND 
EXOR 

OR 
{Unused} 
[Unused] 
LOG 

LN 

SQR 
LOG10 
EXP 
TIME$ 
SIN 

Cos 

TAN 
ASIN 
ACOS 
ATAN 
INT 
MEAN 
SDEV 
PREDV 
RND 

SGN 

ABS 

NUM 
CHR$ 
VAL 
STR$ (formerly VAL$) 
SUB$ (implied) 
FACT 
LEN 
LPRP () 
UPRC$ 
MIN 

MAX 

IVL 

OVF 

UNF 

DVZ 
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INX 


COPY 
LR 
DELETE 
EDIT 
DEF 


LIST 
REAL 
NAME 
DESTROY 
LINPUT 
LET 

SUB 


FOR 
NEXT 


DISP 
DATA 
READ 
FETCH 
INPUT 
INTEGER 
SHORT 
DIM 
PRINT 
STAT 
KEYS 
CARD 
PORT 
MAIN 
DEGREES 
RADIANS 
ADD 
DELAY 
PAUSE 
WAIT 
STOP 
END 
RETURN 
GOSUB 
GOTO 
RESTORE 


IF 
ON 


217i 
Lili 
1111 


1101 
1101 
0111 
0111 
1101 
0000 
1101 
1101 
1101 
1101 
1101 
1101 
1000 
0000 
1001 
1001 


1101 
1000 
1101 
0111 
1101 
1101 
1101 
1101 
1101 
1101 
0000 
0000 
0000 
0000 
1101 
1101 
1101 
1101 
1100 
1101 
1101 
1101 
1101 
1101 
1101 
1101 


1101 
1101 


INX 
XFN 


DEGREE 
RADIAN 
ADD 
DELAY 
PAUSE 
WAIT 
STOP 
END 
RETURN 
GOSUB 
GOTO 
RESTOR 


if 
ON 


tINX 
tXEN 
tFEN 
LASTEN 
tCOPY 
tLR 
tDELET 
tEDIT 
tDEF 
tENDDF 
tLIST 
tREAL 
tNAME 
tDSTRY 
tLINPT 
tLET 
tSUB 
tENDSB 
tFOR 
tNEXT 
tLITRL 
tDISP 
tDATA 
tREAD 
t¥FEICH 
tINPUT 
tINTEG 
tSHORT 
tDIM 
tPRINT 
tSTAT 
tKEYS 
tCARD 
tPORT 
tMAIN 
tDEGRE 
tRDIAN 
tADD 
tDELAY 
tPAUSE 
tWAIT 
tSTOP 
tEND 
tRETRN 
tGOSUB 
tGOTO 
tRESTR 
tRFILE 
tIF 
tON 
tCREF 
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INX 

XEN 

Funny Function 
Last Function 
COPY 

LR 

DELETE 

EDIT 

DEF 

END DEF (parsed by ENDP) 
LIST 

REAL 

NAME 

DESTROY 

LINPUT 

LET 

SUB 

END SUB (parsed by ENDP) 
FOR 

NEXT 

LITERAL (Literal label or file name) 
DISP 

DATA 

READ 

FETCH 

INPUT 

INTEGER 

SHORT 

DIM 

PRINT 

STAT 

KEYS 

CARD 

PORT 

MAIN 

DEGREES 
RADIANS 

ADD 

DELAY 

PAUSE 

WAIT 

STOP 

END 

RETURN 

GOSUB 

GOTO 

RESTORE 

Run file specified in RUNP 
IF 

ON 

Call by reference separator 
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The following is the “built-in 


E1 OFF 1101 OFF tOFF OFF 

El tCVAL Call by value separator 
E2 USER 1101 USER tUSER USER 

E2 — tCOLON HPIL colon token 
E3 ERROR 0000 NXTISTM tERROR ERROR 

E4 TIMER 0000 NXISIM tTIMER TIMER 

E5 KEY 1101 KEY tKEY KEY 

E6 REM 1101 REM tREM REM 

E7 IS 0000 NXISIM tIS Is 

E8 BEEP 1101 BEEP  tBEEP BEEP 

EQ BASE NXISIM tBASE BASE 

EA TRACE 1101 TRACE tTRACE TRACE 

EB PURGE 1101 PURGE tPURGE PURGE 

EC CAT 1101 CAT tCAT CAT 

ED OPTION 1101 OPTION tOPT’N OPTION 

EE AUTO 0111 AUTO tAUTO AUTO 

EF 1101 XWORD tXWORD XUORD 

FO 0000 TRMNTR tEOL <eol> 

Fl 0000 TRMNTR tCOMMA COMMA 

Fe 0000 TRMNTR tSEMIC SEMICOLON 

F2 tIN tIN (for CALL) 
F3 TO 0000 tTo TO 

F3 tPRMST PRMST (Start of Parm list-SUB,CALL) 
F4 THEN 0000 TRMNTR tITHEN THEN 

F4 tEXTIF Extended If 

F4 t (Continuation) 

F5 ELSE Q000 ELSE tELSE ELSE 

F6 STEP 0000 LABEL tSTEP STEP 

F6 tLBLST Label Statement 
F7 TAB 0000 NXTSIM tIAB- TAB 

F8 ALL 0000 NXTSIM tALL ALL 

F8 tPRMEN PRMEN {End of Parm list-SUB) 
F9 CALL 1101 CALL tCALL CALL 

FA CFLAG 1101 CFLAG tCFLAG CFLAG 

FB SFLAG 1101 SFLAG tSFLAG SFLAG 

£G BANG t! Comment 

FD USING 0000 NXISIM tUSING USING 

FE RUN 1101 RUN tRUN RUN 

FF IMAGE 1000 IMAGE tIMAGE IMAGE 


XWVORD" table (LEX ID 01): 


RINSXM xrmO1s MAINTS O01 
RHE HE HEE HRI RK 
% a~ ~ a an an n~ 
* File Msg Poll EOF TblNam TbiLnk ROM# 


* 
¥ 


%% GEIS JHE SII HHI FHI SH 
HH FHI JHE FHI FHI CHIH 
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c+ x 0 FI 


DEFAULT 
DROP 
DTH$ 
ENDLINE 
ERRM$ 
VER$ 


RAAA 


BLSC 
eeya 
ggsl 
jlatc 
nle 
mB 
BA A 
AfCS 
StnlI 
TedC 
Cr 


Liit 
1111 
1101 
1101 
1111 
1111 
1111 
1101 
1111 
1101 
Lili 
1101 
1101 
1101 
OF 
1101 
1101 
1111 
O111 
Tie 
0000 
1101 
1101 
6111 
Liat 
1101 
1101 
0000 
1101 
TIO% 
1111 
1101 
1111 
1111 


> 


Sore CO OM XM MH 


yom PSP 


ACOS 
ADDR$ 
ADJAAA 
ADJINNN 
AF 
ANGLE 
ASIN 
ASSIGN 
ATAN 
BYE 
CATS 
STD 
DSPF 
DSPF 
DSPF 
CHARST 
CHAIN 
CHRST$ 
NASSAU 
CLASS 


CLSTAT 
CNIRST 
CONT 
CORR 
PLIST 
CREATE 


DEFALT 
DROP 
HEX$ 
ENDLIN 
ERRM$ 
VER$ 


sO RO FT 


ozs a s 


XANGLE 


XCLOCK 


XZERO 
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> 


en osasaon 


ACS 
ADDR$ 
ADJABS 
ADJUST 
AF 
ANGLE 
ASN 
ASSIGN 
ATN 
BYE 
CATS 
SID 
FIX 
SCI 
ENG 
CHARSET 
CHAIN 
CHARSET$ 
CLAIM (PORT) 
CLASS 

(RESET) CLOCK 
CLSTAT 
CONTRAST 
CONT 

CORR 

PLIST 

CREATE 

ZERO 

DEFAULT 

DROP 

DTH$ 

ENDLINE 
ERRM$ 

VER$ 


(function and middle word) 
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EXACT 
EXPM1 


EXPONENT 


EXTEND 
FLAG 
FLOOR 
FLOU 
FREE 
GDISP 
GDISP$ 
HTD 
INTO 
KEYDEF$ 
KEY DOWN 
LC 

LGT 
LOCK 
LOGP 1 
WIDTH 
MATH 
MEAN 
MEM 
MERGE 
MINREAL 
NAN 
NEAR 
NEG 
PCRD 
PEEK$ 
POKE 
POP 
POS 
PRIVATE 
PROTECT 
PUT 
PWIDTH 


RANDOMIZ 


RED 
RENAME 


RENUMBER 


RESET 
ROUND 
SDEV 
WINDOU 
SECURE 
DISP$ 
SETDATE 
SETTIME 
SHOW 
SQRT 
STARTUP 


1101 
1111 
1111 
0000 
1111 
1111 
0000 
0111 
1101 
11121 
1111 
0000 
1111 
1111 
1101 
1111 
1101 
1111 
1101 
0000 
1111 
1111 
1101 
1111 
1111 
0000 
0000 
0000 
1111 
1101 
1101 
1111 
1101 
1101 
1101 
1101 
1101 
1111 
1101 
1101 
1101 
0000 
1111 
1101 
1101 
1111 
1101 
1101 
0111 
1111 
1101 


EXACTT 
EXPM1 
EXPON 
XEXIND 
FLAG 
INT 
xFLOU 
FRPORT 
GDISP 
GDISP$ 
HXDEC 
XINTO 
KEYDEF 
KEYDUN 
FLIP 
LOG10 
LOCK 
LOGP1 
WIDTH 
xMATH 
MEAN 
MEM 
MERGE 
MINRL 
NAN 
xXNEAR 
xNEG 
xPCRD 
PEEK$ 
POKE 
POP 
POS 
PRIVAT 
PROTCT 
PUT 
PWIDTX 
RANDOM 
RED 
RENAME 
RENUM 
RESET 


xPOS 


xROUND 

SDEV 

WINDOW 

SECURE 

DSP$ 

SETDAT 
SETTIM 

SHOU 

SQR 

STRIUP 
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EXACT 

EXPM1 
EXPONENT 
EXTEND 

FLAG 

FLOOR (Same as INT) 
(TRACE) FLOU 
FREE (PORT) 
GDISP 

GDISP$ 

HTD 

INTO 

KEYDEF$ 
KEYDOUN 

LC 

LGT 

LOCK 

LOGP1 

WIDTH 

MATH 

MEAN (Duplicate of Built-in) 
MEM 


MERGE 
MINREAL 
NAN 

NEAR 

NEG 

PCRD 

PEEK$ 

POKE 

POP 

POS 
PRIVATE 
PROTECT 

PUT 

PWIDTH 
RANDOMIZ(E) 
RED 

RENAME 
RENUMBER 
RESET [CLOCK] 
ROUND 

SDEV (Duplicate of Built-in) 
WINDOW 
SECURE 
DISP$ 
SEIDATE 
SEITIME 
SHOU (PORT) 
SQRT 
STARTUP 
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56 TOTAL 1111 TOTAL TOTAL 

57 TRANSFOR 1101 TRSFMX TRANSFORM 

58 TRAP 1111 TRAP TRAP 

59 UNPROTEC 1101 UNPROT UNPROTEC (T) 
SA UNSECURE 1101 UNSECR UNSECURE 

5B VARS 0000 XVARS (TRACE) VARS 


6.1.3.2 Other Mainframe Symbolics 


Existing symbolics for all the mainframe operators are defined as 
follows: 


t% EQU #85 
t& EQU  =#89 
t* EQU #83 
t+ EQU #87 
t- EQU #82 
t/ EQU = #84 


tAND EQU #8B 
tDIV EQU #86 
tEXOR EQU #8C 
tNOT EQU #81 
tOR EQU = #8D 
tC EQU = #80 


There are no existing symbolics for the relational operators, which 
are 3 nibbles long. However, each relational operator has for its 
first byte tRELOP (8A). The third nibble is a bit map: 

Relop Bit# 


Vv ta 
PWM FR 


Symbolics could be defined as follows: 


t< EQU (#1)~ (tRELOP) 
t= EQU (#2)~ (tRELOP) 
t> EQU (#4)~ (tRELOP) 
t? EQU (#8)~ ( tRELOP) 
t<= EQU (#3)~ (tRELOP) 
t>= EQU (#6)~(tRELOP) 


t# EQU (#5)~ ( tRELOP) 


The following symbolics are available for loading up _ single 
characters of ascil. Symbolics for ascii are certainly not 
necessary, since: 
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LC(2) =a! is equivalent to Lcasc \!\ 


But here they are anyway: 


a! EQU #21 
a" EQU #22 
a$ EQU #24 
a’ EQU #27 
a. EQU #2E 
ad EQU #30 
al EQU #31 
a2 EQU = #32 
a3 EQU #33 
a4 EQU #34 
a5 EQU #35 
a6 EGU #36 
a7 EQU #37 
a8 EQU #38 
a9 EQU #39 


Note that if a symbolic is defined to be N nibbles long, and N+X 
nibbles are referenced, then the upper X nibbles are zeroes. For 
example: 
LC(5) =t< 
is equivalent to: LCHEX 0018A 


6.1.3.3 Building Symbolic Tokens For a LEX File 
Given a one-byte token, TOKEN, in a LEX whose ID# is FE, you could 
do the following to build the symbolic representation for the 
complete three-byte token: 

tIOKEN EQU (xTOKEN)~(#FE)~(tXWORD) 
This builds tIOKEN by concatenating three bytes of information. The 
low byte is the XWORD token, the middle byte is the LEX ID, and the 
high byte is the token number in the table. 
If xTOKEN were a function name, you would replace tXWORD above with 


tXFN. Analogously, if xTOKEN were a funny function, you would use 
tFEN. 


6.2 Lexical Analysis, Parse, Execute 
A language extension file contains tables used by the parse, 


decompile, and execution routines to recognize and execute external 
statements and functions. The TEXT table holds the ASCII string and 
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associated token for each new or extended keyword. The optional 
SPEED table allows rapid searching of the TEXT table when a large 
number of keywords exists within the LEX file. 


The message table within a language extension file contains messages 
related to routines and functions within the file. These messages 
may be error, warning, or system messages. See the "Message 
Handling" chapter for details. 


The parse, decompile, and execution routines for external keywords 
and functions reside in the language extension file. 


When searching for keywords, LEX files are searched first. This 
allows a BASIC statement to be extended beyond its definition in the 
mainframe. Correspondingly, LEX file functions can override main 
machine functions, New statements and functions can also be added in 
a LEX file. 


As long as it contains all the necessary elements in the header, a 
LEX file may omit certain tables described here if its purpose does 
not require them. In particular, a LEX file may omit the message 
table if it’s not needed. Or, as in the case of a foreign language 
translator, it may consist entirely of a message table which 
overrides mainframe messages (together with a poll handler which 
intercepts the pERR poll to do this). For details of foreign 
language message tables, see the chapter on "Message Handling." 


6.3 LEX IDs and Entry #s 


The token associated with an external keyword indicates that the 
keyword is either an XWORD (external BASIC keyword) or an XFN 
(external function). The lexical analyzer returns this token, along 
with the LEX ID (0-255) and the Entry # (0-255). 


The LEX ID and entry# are stored in HEX. The LEX ID is used to 
locate the LEX file independently of what port it is plugged into. 
The entry# is the keyword# or function# used as the offset into the 
LEX file’s main table and text table. For an external statement, the 
offset into the main table is used to obtain the parse, decompile, 
and execution addresses for the keyword; for an external function, 
the offset 1s used to obtain the number and type of parameters and 
the execution address. The relative offset into the text table is 
used tp obtain the ASCII text associated with the statement or 
function stored in the text table; this text is used to decompile the 
external keyword. 


254 external LEX IDs are allowed. LEX ID 0 and 1 are reserved for 


the mainframe. 255 internal keywords and functions are allowed per 
LEX file. If a language extension requires more than 255 keywords, 
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then more than one language extension file must be used. 


6.3.1 LEX ID Allocation 


LEX IDs and entry# ranges are allocated by Hewlett-Packard. See the 
chapter “HP-71 Resource Allocation" for information on current 
resource allocations and the procedure for getting a token range 
officially allocated. 


LEX IDs 92, 93 and 94 have been allocated as temporary/scratch IDs 
that can be used by LEX file developers who want a safe ID to 
experiment with without fear of interfering with LEX files written 
and distributed by Hewlett-Packard or other software developers. 


6.3.2 Range of Entry Numbers 


A LEX file may contain a contiguous range of entry numbers, allowing 
libraries of keywords to be distributed in logical groups. The 
format of the LEX file allows the range of entry numbers to be 
specified during creation. 


6.3.3 Merging LEX Files 


LEX files may be merged together for single file distribution of 
several LEX files. An internal LEX file chain exists within the LEX 
file structure. 


6.4 Referencing Mainframe Entry Points 


If HP’s internally developed HP-71 linker is to be used after a file 
is assembled, entry points which are referenced external to the LEX 
file must always be preceded by ’°=’. For example, GOSBVL =OUTBYT. 
Note that this is not true when using the FORTH/Assembler ROM, which 
does not use a linker. 


In either case, all references to mainframe entry points must be 
absolute (GOVLNG or GOSBVL or LC(5) } since a LEX file may move in 
memory, thus prohibiting relative references. 


In the interest of saving code, if a mainframe entry point is to be 
referenced several times from a LEX file, it is shorter to have only 
one external reference in the module to that entry point, with 
shorter relative jumps within the module to the point of external 
reference: 
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GOSUB outbyt 

GOSUB outbyt 

GOTO outbyt 
outbyt GOVLNG =OUIBYT 


6.4.1 LEX Files and Memory Movement 


Any LEX file which is likely to reside in RAM (system or IRAM) faces 
a problem when invoking certain mainframe utilities which can cause 
files to move, For example, the utility to purge a file (PRGFMF) 
causes all subsequent files in a file chain to move toa _ lower 
address. In general, utilities which cause files to move are those 
which call some entry point in either the MOVEDM or MOVEUM routines; 
the other entry points in these routines are MOVEDO, MOVEDA, MOVED1, 
MOVED2, MOVED3, MOVEDD, MOVEU0, MOVEUA, MOVEU1, MOVEU2, MOVEU3, and 
MOVEU4, Therefore, a given utility can be identified as one which 
causes memory to move by looking at its documentation header in 
Volume II of the IDS, and examining which routines it calls. 


The danger of executing code in RAM, such as ina LEX file, is that 
it may invoke a system utility which moves the code, invalidating the 
return address on the CPU return stack and sending the machine to 
never-never land. To remedy the problem, a system utility has been 
created to allow calling mainframe utilities from movable code. The 
utility, MGOSUB, places the return address on the system GOSUB stack, 
where it will be updated if memory moves. 


Because any unprotected LEX file in ROM can be copied to RAM, the 
above also applies to LEX files in ROM. However, if a LEX file in 
ROM is protected against being copied to RAM, then it does not need 
to be concerned with memory movement. There are two ways to guard 
against this: 1) Make the file Private, or 2) Give the LEX filea 
name with at least one lower case character. Of these two options, 
the first is probably preferrable. 


6.4.2 MGOSUB Utility 


This utility allows movable code (code running in RAM) to call 
utilities which may move it (such as the utility to purge a file). 
Rather than leaving the return address of the calling code on the CPU 
return stack, it places the return address on the BASIC GOSUB stack, 
where it is updated whenever memory is moved. 
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The MGOSUB utility is invoked as follous: 


GOSBVL =MGOSUB 
CON(5) <addr of target subroutine> 
<code continues here> .. 


The call to’ MGOSUB is transparent with regard to all registers, 
carry, SB, XM, and status bits. That is, entry conditions will be 
faithfully transmitted from caller to subroutine, and exit conditions 
Will be faithfully transmitted from subroutine to caller. There is a 
price for this, however: the MGOSUB code uses SCRICH RAM for 
temporary storage before and after the call to the target subroutine. 
This means that SCRICH is not a safe place to keep things during the 
MGOSUB call, and that it cannot be used to pass data to or from the 
subroutine. Obviously, subroutines called via MGOSUB also pay an 
overhead in execution time. 


6.5 Referencing Addresses in a LEX File 


All references within a LEX file must be relative. If a table 
contained in a LEX file must be referenced, a way to get the current 
absolute address of the table is as follows: 


GOSUB GTADDR Push address of table onto stack 
TABLE NIBASC \HELLO\ 
NIBHEX FF 


GTADDR C=RSTK Recall address of table 
: Code continues 


6.6 External Lexical Analysis 


Entry #0 in the Main Table of a LEX file contains the execution 
address of an external lexical analyzer or a system override. 


An external lexical analyzer can be used to handle cases that cannot 
be handled by standard mainframe scanning techniques. If the toker: 
associated with a text item in the TEXT table is #00, an external 
lexical analyzer will be invoked. The external lexical analyzer will 
interpret the text using non-standard techniques and return a 
non-zero token to the mainframe lexical analyzer. Care must be taken 
to jump back to an appropriate reentry in the mainframe. 
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6.7 Entry and Display of External Keywords 


When an external keyword is keyed in, the LEX file containing the 
keyword should exist. If the LEX file is in the machine during 
decompile, then upon decompiling the keyword the corresponding ASCII 
name is displayed. If the LEX file is not present during decompile, 
then one of the following is displayed: 


XWORD llleee 
XFNllleee 


XFN indicates an external function; XWORD indicates some other 
external keyword. The first 3 digits (111) are the LEX ID in 
decimal. Leading zeroes are suppressed. The last 3 digits (eee) are 
the keyword entry # in decimal. Three digits are always displayed. 
The LEX ID and entry# are stored in hexadecimal and displayed in 
decimal. The decimal display of LEX IDs corresponds to those 
displayed in error messages. 


When an external statement is decompiled without the corresponding 
LEX file plugged in, only the XWORD text itself is decompiled; any 
text which would normally follow the XWORD is not displayed. An 
expression with an XFN from a missing LEX file is displayed normally, 
except that the ASCII function name is replaced with the XFNllleee 
notation; all parameters are displayed normally. Funny functions are 
an exception to this rule; their parameters are not displayed. 


When a missing LEX file has added a new device type, the device type 
ls decompiled as "external" 


Note that in all cases, once the missing LEX file is plugged back in, 
decompiling resumes nornally. 


6.8 Short Keywords 


If a short keyword in a LEX file is wholly contained within the first 
Characters of a longer keyword in the same LEX file, special 
attention is required. The longer keyword should always precede the 
shorter keyword in the table, otherwise the longer keyword will NEVER 
be found. 


Also, if a keyword exists in a LEX file that is wholly contained in 
the first characters of a longer keyword in the main machine or 
another LEX file, then the longer keyword will not be found unless 
the parse of the shorter keyword fails. To illustrate the two points 
made above: 
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FORM in LEX File 
FO in LEX File 
FOR in Main 


If FO had preceded FORM in the LEX file above, then the FORM keyword 
would never be found. 


Also note that only if FO parse fails, will the machine ever try FOR 
parse; this capability to try another parse routine once the parse of 
an external statement fails is provided througn the RESTART 
mechanism. 


Finally, assume the user types in the following: 

>10 FORM=1 TO 5 

Assume that FORM parse requires a string expression. FORM parse will 
fail; through the RESTART mechanism the FOR keyword in the mainframe 
table will be found next, and that parse will be successful. The 
Restart portion of line parse contimues searching for a keyword if a 
LEX file returns an error condition from one of its parse routines. 
This ensures that longer keywords in other LEX files and in the 
mainframe are found. 


The last example above illustrates that the RESTART mechanism 
continues the search in another LEX file, or if there aren’t any 
more, into the mainframe. RESTART does not continue in the same 
table; this is why it’s go important to put a longer keyword (FORM) 
prior to a shorter keyword (FO) when they occur in the same LEX file. 


Parse routines that look for a particular keyword may have trouble 
uSing the lexical analyzer (NIOKEN} if a LEX file is present 
containing a shorter keyword than the one being searched ffor. For 
example, if a given parse routine requires the FOR keyword as an 
intermediate keyword, but FO is present ina LEX file, then NIOKEN 
will return tFO, not tFOR. 


Using the UWRDSCN utility gets you around this problem. UWRDSCN was 
designed especially for searching all possible LEX files until a 
keyword that YOU specify is found. WRDSCN calls NITOKEN to finda 
lexeme. When NTOKEN returns a lexeme, then WRDSCN checks 1f it is 
one of the keywords that you have designated. If it is, UWRDSCN 
returns that keyword; otherwise, it restarts the lexical analyzer, so 
that NIOKEN continues searching LEX files. Ultimately, WRDSCN either 
returns one of the keywords you have designated or indicates that the 
ascii pointed to by D1 does not contain any of the keywords you have 
specified (as indicated by LEX files present in the machine). See 
IDS Volume II for further details of WRDSCN. 
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6.9 Line Number References Within a Statement 


Any statement which controls program flow using line number 
references, has a 5 nibble relative address field following tLINE#, 
so that the address can be compiled; note that commands such as LIST, 
which may contain line number references, would not have such 
relative offset fields, since LIST has nothing to do with controlling 
program flow. External statements containing line number references 
must exercise care when executing a line number reference. 


present. But, if the LEX file is missing at the time the program is 
modified, any compiled addresses in the XWORD statements of that LEX 
file will not be cleared. Subsequent execution of such XWORD 
statements using this compiled address could result in an invalid 
branch, 


There is an external entry in the Mainframe GCTO/GOSUB execution 
code. If the sxXWORD status is set, the compiled line number address 
Will be ignored and the line number will always be searched for, 
guaranteeing correct statement branching. See the GOTO documentation 


A program can be edited or renumbered without a LEX file being 
in Volume II of the IDS for details. 


6.9.1 References Uithin an "Interrupt" Statement 


A statement that branches to a line mumber due to an interrupt must 
execute special code to handie TRACE FLOW. Examples of interrupt 
statements are ON TIMER, ON ERROR and ON INTR. 


| 
Since the ‘TRACE FROM" address is not the preceding statement in 
sequential statement execution, the ONTIMR code must be duplicated to 
compute and trace the FROM address. The sxXJORD flag must be set | 
prior to the GOTOQ+ jump to guarantee all line number references are 
recomputed. 


See the ONIMR documentation in Volume I] of the IDS for details. 


6.10 Polling 


Polling is performed from many places in the HP-71 operating system 
to allow a LEX file to perform special processing when appropriate. 
During a poll, a one byte process mumber is passed to each LEX file; 
this identifies the reason the system is performing a poll. 


Each LEX file has an opportunity to respond to a poll. The location 
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of the poll handling code is identified by an offset-tc-poll-handler 
which exists in each LEX file header. When a LEX file poll handler 
is polled (given control) it determines if it wants to respond to the 
process based on the process number. Response comes in several 
flavors: 


1 - LEX file “handles” poll. The LEX file performs some processing 
and then returns with XM=0 and carry clear, indicating that the 
polling process should terminate. 


2 - LEX file detects error (Slow Poll ONLY). The LEX file detects 
an error condition and returns with carry set, which terminates 
polling. An error identification is passed back in the 
C-register. 


3 - None of the above. Many polls are NOT looking for a specific 
"handler", but are simply offering an opportunity for a LEX 
file to do some processing. For example, the pSREQ poll should 
never be “handled”, but it allows an opportunity for a LEX file 
to handle whatever service requests it knows how to handle. 


There are two kinds of polling: Fast and Slow. Their entry points 
are FPOLL and POLL, respectively. In both cases, the process number 
must immediately follow the call. 


GOSBVL =FPOLL GOSBVL =POLL 
CON(2)} =pPOLL# or CON(2) =pPOLL# 


For both types of polling, XM can be set by the responding LEX file 
to indicate whether or not the poll was ’handled’. This is desirabie 
if only one LEX file can respond to a particular poll; XM=0 on return 
to the system terminates the polling operation. In some cases it 
will be desirable for multiple LEX files to respond to a single poll; 
in this case responding LEX filles should NOT set XM to 0. 


The return requirements for a poll are indicated in the documentation 
for gach separate poll, and can be found in the IDS Volume II under 
the individual poll name - pXXXXX. 


6.10.1 Fast Poli 


A fast poll is relatively fast and uses no extra memory. It is used 
when: 


1) Ex ecution speed is important, and/or 

2) Little information is to be passed to the handler, and/or 

3} There is little available memory or the memory may be in a 
strange state (e.g., pointers not valid). 


The carry is set at entry to the LEX file poll handler, so fast polls 
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are easy to detect. Typically, fast polls are used for low-level 


system polls, indicating a state within the machine, with no specific 
information to pass. 


The process number is passed in B{A). D(A) should not be destroyed 
by a LEX file, since it is used as a pointer into the LEX file entry 
buffer during the polling process. However, if a LEX file is going 
to handle the process and exit with XM=0 (ensuring polling will 
stop), it is acceptable to destroy D(A). The poll handler is 
executing two stack levels deeper than the calling code. 


Fast poll does nothing with RO-R4 and the status bits. Depending on 
the application, any or all of the above may be used to pass data to 
or from the handler. Information cannot be passed to or from poll 
handlers in A-D, 020, Di or P. For specifics on register usage and 
availability, see the individual poll documention. 


6.10.1.1 Fast Poll Example 
A typical fast poll may look like the following: 


GOSBVL =FPOLL 
CON(2) =pPOLL# Process # 


Oo distinction is made as to 


Often, when a fast poll is issued, n 
died; in such cases it is not 


3 
whether or not the poll was han 
necessary to check KM. 


6.10.2 Slow Poll 


A slow poll allows passing of more information to poll handlers then 
does afast poll. In addition, it saves stack levels and the 
contents of some registers in RAM, allowing recursive polling (a poll 
handler may perform a poll). 


The advantages of slow poll over fast poll are: 


1) Allows passing data to poll handlers in A,D,DO and Dl. 
2) Handler can perform an error exit which will terminate the poll. 
3) Stack levels are saved in RAM, so handler can 
a) Use more stack levels, and 
b}) Call POLL itself. 
4) Address of caller is saved on the GOSUB stack where it will be 
updated if memory moves. 


The disadvantages of slow poll compared to fast poll are: 


1) It’s slower. 
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2) It requires enough memory and valid pointers to establish a save 
area in RAM. 


As with fast poll, slow poll does nothing with RO-R4 and the status 
bits. Unlike fast poll, A, D, DO and D1 can be used to pass data to 
the handlers. The contents of these registers are restored to their 
original entry values upon entry to each poll handler. 


If a LEX file responds by “handling” the poll or performing an error 
return, most of the registers are returned to the caller as they were 
left by the handler. If no LEX file handles the poll, A,D,DO and Di 
are restored to their entry values upon return to the calling code. 
6.10.2.1 Slow Poll Example 


A typical slow poll may look like the following: 


GOSBVL =POLL 
CON(2) =pPOLL*# Process# 
Goc Err Error occured during handling? 
2XM=0 
GOYES OKAY Process handled without error? 
* Process not handled at all 
LC(4)  =eXXYY Load up appropriate err# 
Err GOVLNG =BSERR Error# loaded up 


OKAY 


6.10.2.2 Save Stack Slow Poll Information 


The save stack resides between the math stack and the FOR-NEXT stack. 
The SAVSTK pointer (same as FORSTK) points to the bottom of the save 


stack area. The following information is kept on the save stack 
during a slow poll: 

Register A 16 nibbles Low Memory 

Register D 16 

Data Pointer D1 5 

Data Pointer DO 5 

Poll# 5 

Return Level 2 5 

Return Level 3 5 

Rel Pos in LEX Buffer 5 High 


SAVSTK--> 

In addition to this save information, the calling return address is 
pushed on the BASIC GOSUB stack. This adds 6 nibbles to the stack 
pointed to by GSBSTK. 


The total memory used by POLL is 68 nibbles (44 hex). 
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If a responder to a slow poll "“takes-over" the poll and does not 
return to the caller, the POLL save information must be deleted. The 
math stack pointer should be collapsed to the FOR stack pointer. The 
mainframe routine =COLLAP will do this. 


6.10.3 POLL Subroutine Level Usage 


A handler for a fast poll is two subroutine levels deeper than the 
caller of the poll. 


Because of subroutine level saving, a handler for a slow poll is one 
level shallower than the caller. 


6.10.4 How to Answer a Poll 

Each LEX file determines which poll process mumbers it will respond 
to. As mentioned earlier, response may consist of handling, not 
handling, or returning anerror. In each case, the availability of 
registers is clearly spelled out in the documentation for the 
individual poll. 


The type of response is indicated by the poll handler in the state of 
the carry and the XM bit: 


Handled: XM=0, carry clear. 
Not handled: XM=1 (RINSXM instruction), carry clear. 
Error exit: (meaningful for POLL only, FPOLL ignores this): 

Carry set. 

Error number in C(3-0). 
Each poll issued from the mainframe is documented to indicate entry 
and exit conditions for the poll. It is important that a responding 
LEX file follow the conventions indicated by the documentation. 


6.10.5 Responding to a Poll from Binary 


If a binary routine responds to a slow poll and does both of the 
following: 


1. Indicates "no response" (XM=1) so the poll information 
is restored 


2. Calls a BASIC subprogram during the poll 


then the poll information and poll return address must be preserved 
during the CALL to BASIC. The return address to poll must be saved 
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on the GOSUB stack, and the FORSTK pointer must be set over the poll 
gave area. See the subsection on "Responding to POLL and Invoking 
BASIC" below for code examples. 


6.10.6 Take-over Poll 


If the handler of a slow poll “takes-over" by not returning to the 
operating system POLL routine, it should collapse the math stack to 
the FOR Stack to delete the saved poll information. The mainframe 
routine COLLAP will do this. In addition, the mainframe routine 
POPUPD should be called to pop the poll issuer’s return address off 
the GOSUB stack. 


6.10.7 Polling during Parse or Decompile 


Any LEX file issuing a slow poll during parse or decompile must use 
the POLLD+ entry point. This entry adjusts the end of available 
memory value in D(A) to reflect the memory used by POLL. 


AVMEMS (available memory start) must be set to the value in DO to 
save data already written to the output buffer; this can be 
accomplished by calling AVS=D0. On return from poll, D(A) must be 
reset to the new available memory end. The routine D=AVME will do 
this. 


Sample code: 


GOSBYL =AVS=DO0 Set AVMEMS DO 
GOSBYL =POLLD+ Issue Poll 
CON(2) =pPOLL 

GOSBVL =D=AVME Set D = AVMEME 


6.10.8 Polling from a LEX File in RAM 


Polling from code which is executing in RAM can be tricky, since a 
poll handler may cause memory to move. If a poll handler can cause 
memory to move, a slow poll must be performed. Slow poll saves the 
address of the caller ina place where it will be updated if memory 
moves. Fast poll does not. 


Poll {slow or fast) must be invoked DIRECTLY from a LEX file. The 
utility, MGOSUB cannot be used. 
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6.10.9 Summary of Poll Function Codes 


The list of process numbers (poll function codes) and their meanings 
is maintained in the "HP-71 Resource Allocation” Chapter. All polls 
issued by the mainframe are grouped within common categories (e. Poy 
filetype polls, parse polls, card reader polls, etc.}). System polls 
(those which identify a state of the systen, such as going-to-sleep, 
waking-up, etc.) are assigned numbers in the upper range of possible 
process numbers (from 255 downward). Other polls are assigned 
process numbers upward from zero. As new process numbers are added 
for non-mainframe use, they will be assigned sequentially from the 
highest existing assigned process number. 


It is this process number which is passed in the B- register to poll 
handlers in all LEX files. 


See the “HP-71 Resource Allocation" chapter for a one line 
description of all system polls. See the POLL category in Volume II 
of the IDS for detailed information about individual polls. 


6.10.10 Special Mainframe Polls 


6.10.10.1 Pointer and Buffer "Clean-Up" 


Whenever execution stacks are collapsed, the mainframe issues a fast 
poll, referred to as the zero program poll (pZERPG), to collapse any 
buffers and zero any pointers associated with progran information. 
This happens whenever RUN, EDIT, or END are executed, or whenever the 
current file is modified or purged (any time the Mainframe entry 
points CLRSTK, CLPSIK, or ZERPGM are called, this poll goes out). 


A LEX file which uses a system buffer for a given application may 
Want tO answer the poll so that it can collapse or deallocate its 
buffer. The Math ROM, for example, keeps a copy of the math stack in 
its system buffer, SO when the Zero Program poll (pZERPG) goes out, 
it responds by deallocating the buffer since the math stack no longer 
exists. 


6.11 BIN Main Programs 

A binary main program is a program uritten in HP-71 assembler 
language and invoked through the RUN statement. A binary main 
program can also be CALLed as a subprogram with no parameters. 


Execution begins two nibbles past "20" (the equivalent to the EOL 
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byte preceding the first statement of a BASIC program). Since common 
statements and utilities are used for both BASIC and BIN files, this 
"20" guarantees the same "start of file" length for both file types. 


6.11.1 Ending a Binary Program 


When execution of a binary program is complete, the code should 
GOVLNG =ENDBIN. This mainframe system entry point will "END" a 
binary program invoked through RUN/CALL. This entry point is part of 
the BASIC END statement execution. Stacks are collapsed, all open 
files are closed, the program running flag (PgmRun), the PRGM 
annunciator, and the status bits 0-11 are cleared, and pBSCex poll is 
issued. Control returns to the calling program or, to MAINLP if the 
binary program was invoked from the keyboard. 


6.12 BIN Subprogranms 


A BIN subprogram is a subprogram written in HP-71 assembly code, with 
the tokenized BASIC SUB statement at the start of the code. The SUB 
Statement is tokenized exactly like it is in a BASIC statement, 
except no line number is required. This tokenization allows binary 
subprograms to be CALLed just like BASIC subprograms. 


Binary subprograms are used instead of BASIC subprograms to gain 
execution speed or system access not available to BASIC. 


A BIN file containing only subprograms must have as its first command 
(preceding the first SUB statement): GOVLNG *ENDBIN. This guarantees 
standard handling of invoking RUN on a file containing nothing but 
subprograms - a NOP occurs. 


For information on chaining of subprograms in a BIN file, see section 
on BIN files in the "File System" chapter. 


See the section on SUB tokenization in the “Statement Parse, 
Decompile, and Execution" chapter. 


6.13 BIN Error Exit 


Invoking some mainframe routines from binary may result in a 
non-returning error exit through the mainframe message handler. The 
message driver jumps directly to ERRRIN at the end of the BASIC 
interpreter loop. 
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When anerror occurs, BASIC program execution suspends. If the 
current program file type is not BASIC, the program is halted, but 
not suspended (the SUSP annunciator is not on so. the program cannot 
be continued). The assumption made for suspending a BASIC program is 
that from the current DO setting, the error line# can be found. For 
an error exit within a binary program, the DO setting is meaningless; 
this is why the line# reported on an error within a BIN file is "~~", 


If you want to cause a binary program or subprogram to suspend, 
respond to the pBSCex poll, which goes out each time the BASIC 
interpreter is exited; If the current file type is BIN and an error 
occurred (SERROR set), then you may want to set the SUSP annunciator 
and update CNIADR to point to the binary code to CONTinue at. See 
the pBSCex and PRUNnB poll documentation for further information. 


6.14 Invoking BASIC from Binary 


Binary programs and subprograms can be invoked through the RUN and 
CALL statements of BASIC. Provided the binary program or subprogran 
is formatted properly, invoking it is transparent to the user. 


Likewise, it is possible to invoke BASIC from HP-71 assembly code. 
The entry point CALBIN is called. The PgmRun (S13) must be set 
before the call. Following the GOSBVL =CALBIN is the tokenized form 
of the BASIC CALL statement to the subprogram. The line length of 
the CALL statement starts the tokenization. See the section on CALL 
tokenization in the "Statement Parse, Decompile, and Execution" 
chapter. 


Following the tokenized CALL statement is the next assembler 
instruction to be executed after the subprogram is ended. 
6.14.1 Responding to POLL and Invoking BASIC 


If abinary routine responds to a slow poll and does both the 
following: 


1. Indicates “no response" (XM=1), so the poll information 
is restored and the poll continues 


2. Calls a BASIC subprogram from within the poll handler 

then the POLL information and poll return address must be preserved 
during the CALL to BASIC. The return address to POLL must be saved 
on the GOSUB stack, the FORSIK pointer must be set over the poll save 
area. 


C=RSTK 
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A=C A 
GOSBVL =PSHUPD 
C=0 A 


LC(2) =1POLSV 
Di=(5) =FORSIK 
A=DAT1 A 
A=A-C A 
DAT1=A A 
ST=1 PgmRun 
GOSBVL =CALBIN 


oeoee 


C=0 A 

LC(2) =1POLSV 
D1i=(5) =FORSTK 
A=DAT1 A 

A=A+C A 
DAT1=A A 
GOSBVL =POPUPD 
C=D A 
RSTK=C 

C=-C-1 A 
RINSXM 
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Push return address on GOSUB stack 
Length of POLL Save area 


Current FORSTIK position 
Move FORSTK over Poll save area 


Set prog running flag 
CALL BASIC 


On return from the BASIC subprogram, FORSTK must be readjusted and 
the POLL return address restored: 


Current FORSTK value 
Adjust back 


Pop return address off stack 
Restore to stack 


Clear carry 
Return “not handled" 
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me ee a a 


| 
| STATEMENT PARSE, DECOMPILE, AND EXECUTION 
| 


wae we ae ee ee ee + 


| 
CHAPTER 7 | 
| 


we ee ae ee ee + 


+ ——— + 


Dae a a ee ee 


7.1 Writing a Parse Routine 


7.1.1 Statement Tokenization 


Statement tokenization involves the calling of parse utilities to 
interpret the incoming ASCII stream as BASIC, and to convert and 
output it as a token stream. A BASIC program line begins with a line 
number and terminates with an End of Line token (tEOL). A program 
line may contain multiple statements. Subsequent statements in a 
multi-statement line are preceded by an @ (t@) token. Following each 
line number or @ token is a statement length byte. This statement 
length is a relative offset to the next terminating token (tEOL or 
t@}. Statements within a BASIC file are chained together using these 
relative offsets. 


In the following examples, assume that low memory is on the left and 
higher memory on the right. 


7.1.1.1 Program Line 


+--+ + +—-------------- + 
| | | | 
| V | V 
+~—----- +--+--+4------ +--+----- +—--------- +--+ 
|line#|StLen| Stmt |4F|StLen] Stmt 1OF| 
+----- + 4+—--4+------ +--+----- to --- +--+ 
line# = Line number of program line 


4 nibble BCD encoding 


StLen = Statement length 
1 byte offset to the end of the statement 
Adding the address of the byte to the contents of the 
byte yields a pointer to @ (4F) or Endline (0F) 

Stmt = Tokenized statement 


Note that encoding of immediate execute lines is exactly as above, 


7-1 


HP-71 Software IDS - Detailed Design Description 
Statement Parse, Decompile, and Execution 


EXCEPT no line mumber is tokenized. 
7.1.1.2 Program Line with Comment 


Tokenization of a comment following a statement, using !, is 


included within the tokenization of the last statement. Therefore, 


the Statement Length byte preceding that last statement is an offset 
to Endline (OF): 


Hoe + $n ee ee + ee + 
| | | | 
| ve V 
Pm thn tt a pane ha a pan a te $$ et 
| Line#|StLen| Stat] 4F|StLen|Stmt|t! |Comment| DO|0F| 
tonne $—-—--— $e 4 He $n mH — He +$--+--+4+ 
Note that ! is tokenized as CF, and that the comment itself is 


always followed by DO, then OF (tEOL). 


The tokenization for a comment at the beginning of a line (using REM 
or !) is analogous to that shown above; the comment is always 
immediately followed by DO. REM is tokenized as follows: 


$e ee ee ee eS + 

| 

| V 
$----- +----- ee +—-— +--+ 
| Line#|StLen| tREM| Comment] D0O|OF| 
$----- a ee +--4--+ 


The tokenization for ! at the beginning of a line is the same as 
above, only substitute t! for tREM. 


7.1.1.3 Program Line Containing Labels 


Label identifiers are allowed within program lines. A label 
identifier is tokenized as a separate statement within the line. The 
Statement Length byte is anoffset past the label tokenization, 
pointing to either @ (4F) or Endline (OF). A label is up to 8 
characters of uppercase letters and digits, starting with a letter. 
A label token (tLBLST = 6F) precedes the ASCII label name. 
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For example, the following is the tokenization of a single 
statement Line, with two preceding labels: 


100 “ABC": TEST1’: GOSUB 525 


$a ee ee + $n ne + + $a wer nee + 

| | | | | | 

| V V | V 
toe +$----- $a 4------ + --4+----- - - ~ +--+----- Hoe 4+- 4 
| line#|StLen|6F| label |4F|StLen|6F| label |4F]StLen|Stmt|0F| 
+----- +----- $—--4------ +-~-+----- +4--+------ +--4----- $----4--4+ 


7.1.1.4 Multi-statement Line with Label 


Tokenization of a multi-statement line, with a single label name 
following the first statement: 


225 A=FNB(X) @ "ASSIGNA": KEY "A", A$; 


+--+ + $e wen ee + $—------ ++ + 

| | | | | | 

| V | V | V 
+------ +----- +---4+--4----- +--+----- $--4----- +--+ -~+ 
| Line#|StLen|Stmt|4F|StLen| 6F] label] 4F|StLen|Stmt]0F| 
$~---- = +----- +--+ —--4+-- == +--+----- +--4----- +o 4 -- 4+ 


7.1.2 Statements with Special Tokenization 


Telwé@.t TE)... THEN.....ELSE 


Statements which immediately follow THEN or ELSE are in one of two 
categories: 1) Implied GOTO and 2) Extended IF. An implied GOTO does 
not contain ’GOTO’, just the label or line number, as in: 
IF A THEN 100 ELSE LABEL1 

Any statement immediately following THEN or ELSE which is not an 
implied GOTO is classified as an Extended IF Statement. There is a 
difference in the way these tuo classes of statements are tokenized. 
Note that the Extended IF token  (tEXTIF) is simply the 
multi-statement token (t@ - 4F); the label reference token ( tLBLRF) 
is EO; the line# token (tLINE#) is FO. 


IF <expr> THEN PURGE 


$~ eee + $------+- + 
| | | | 
V | V 
+—----- $$ --- +----- +—---—---+4+-----+ +$-—---4--4+ 
|StLen|tIF] expr | LIHEN| tEXTIF/ StLeni tnt OF 
+----- $~--4$-—---- - +--+ ++ +~—------ +----- +----4+--+ 
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IF <expr> THEN 100 


| | Vv 
Se ease 4a ae pa a a pa a a a et 
IStLen| tiF | expr | tTHEN| tLINE#|0010/0F| 
$----- 7 oe +----- $------ +----+--+ 
IF <expr> THEN <string expression> 
a a a a a a a nn no ee ee + 
| | 
| V 
$e +--+ —---- +-—--~- $o----- oon - - - - -- +--+ 
|StLen|tIF| expr | tTHEN|tLBLRF|string expr|0F| 
+----- $---4+------ +----- tenn $e ne ee ee eee +--+ 
IF <expr> THEN PURGE ELSE “ABC” 
oe ee ee + $a eee ee + 
| | | 
| V | V 
$----- 4+ — 4 -- - - +- - +—-~----- +----- $e He + 
|StLen| tIF|expr| tTHEN| tEXTIF|StLen|Stmt|4F| (continued below) 
a $2 4 $e +o +----- $a + + 
$e + + + 
| | 
| Vv 
$----- +----- $—------ +--------- +--+ 
portent nin! rehey lotte Seu 
+----- toe $e $e 4 + 


So far only label references which are string expressions have been 
shown; also legal are ’literal’ label references. They are tokenized 
with a tLITRL (4C) preceding them. 


IF Te THEN ABC 


ee ne ne me ee ae me ee ee we ae ee we ee we ewe we ee a we eee ee + 

| | 

| Vv 
+----- $$ 4 4 +—------ $--- + +--+ +--+ 
|StLen| tIFlexpr| tTHEN| tLBLRF| tLITRL|ascii label|OF| 
$----- $m pa ae Hae ee $o----- $------ $e ---------- +--+ 
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IF <expr> THEN A=B @ RETURN ELSE 10 


+----- +---4+--- 


...StLen| 


ee + 


Ted e.e- “CALL 


The simplified 


—-+----- +------ 4----- $----+--4+----- a ee 


tELSE| tLINE#|0100|0F| 


ow we wwe oo we ne ee ee Hee He 


tokenization of CALL is as follows: 


tCALL [<name> [tPRMST<parm list>] tPRMEN [tIN<file name>] ] 


The simplest 


multi-statement line: 


form of the CALL statement takes no parameters. The 


CALL @ CALL <subprogram name> 


would be tokenized as follows: 


140] tCALL| 4F/StLen| tCALL| name| tPRMEN| OF | 


+--+----- + 


Note that the 
nibbles. 


Next, look at 
passing. 


--+----- +----- 4----4------ +--+ 


statement length of the first statement is only 4 


the tokenization of the CALL statement with parameter 
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CALL <name>(PV,PR,#5) 


would be tokenized as follows (assuming PV is a pass by value & 
PR represents a variable which will be passed by reference) 


Pm mmm mm em mmm een ee en + 

| | 

| V 
+----- $+----- $m $e en ee $4 ~~~ $-— $e ee $~-4+—--4----- $---~-- +--+ 
|StLen]| tCALL| name] tPRMST| PV] tCVAL| PRI tCREF| t#153] tCREF| tPRMEN|OF| 
+----- +----- $e am te $—-~-4--- $m tee +$—-~4--4+-----— $------ +--+ 


Note in this example that each parameter is followed by a 1-byte 
token, indicating whether it is g pass by value (tCVAL) or a pass by 
reference (tCREF). Channel numbers are encoded somewhat 
non-intuitively as a pass by reference. Any parameter list of a CALL 
statement is preceded by tPRMST (Parameter Start); the list is 
terminated by tPRMEN (Parameter End). Every CALL statement (except 
the one with no subprogram name or parameters given) is terminated by 
tPRMEN . 


This example illustrates the tokenization of a CALL which specifies a 
file. 


CALL <name> IN <file name> @ CALL <name>(PV) IN <file name> 


tr a ee ek + 

| | 

| v 
$----- +—----- +$~---~-+4------ $+ 4+--- ~~ +--+ 
|StLen| tCALL| name| tPRMEN| tIN| file name/4F|... 
$—----- +~e nee $n ---4-- ~~~ ee +--+ 

Pm mm rr rn ee + 

| 

| Vv 
+—-—--- 4----- $—---~-4-----+- $—-—+----- +------ +---4------~-- +--+ 

... |StLen| tCALL| name] tPRMST| PV] tCVAL| tPRMEN| tIN| file name|OF| 

$----- $----- $e $--- 4—--4+----- +------ +--+ —--- ~~~ +-—+ 


When the subprogram name is specified as a string variable or quoted 
string, it is tokenized either as the variable or in ascii (quotes 
included}. However, when the subprogram name is given as an 
unquoted string it is tokenized with a preceding byte: tLITRL. For 
example: 
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CALL "AB" @ CALL AB 


$n wn nn ee + Hr me nw nn ee ee + + 
| | 
| V | V 
+-~---- tem mmm tae — - — - $e +$—--+----- bone + - ~~ omen nm tee eH + 
| StLen! tCALL| 221424221 tPRMEN] 4F/ StLeni tCALL| tLITRLI 1424] tPRMEN|OF | 
+----- $—----- tome $—-- +—-—+4----- +----- to tomnm ne $e +~-+ 
7.1.2.3 SUB 


The tokenization of the SUB statement is similar in Many ways to 
that of CALL; however, CALL does not output comma tokens between 
parameters, whereas SUB does. Also, the SUB statement has. tuo 
5-nibdble fields which are used for. chaining. The first field 
immediately follows tSUB, and the second field immediately precedes 
either t@ or tEOL (depending on which token follows the SUB 
statement). 


If the SUB statement is followed by !, then the second field 
immediately FOLLOWS the tokenization of the comment. 


The tokenization is as follovus: 
tSUB<xxxxx><name> [tPRMST <parm list>] tPRMEN [t! comment] <xxxxx> 


Note that in all cases, the subprogram name in a SUB statement is 


preceded by tLITRL. Following are some examples of the tokenization 
of SUB. 
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SUB <name> ! comment 


$a oH ne a ne ee ee ee ee + 

| | 

| Vv 
$----- $-—-— -4+----- +--+ $----4---- ++ +--4------- $$ —- 4 +--+ 
|StLen| tSUB| xxxxx| tLITRL| name| tPRMEN| t! | comment] DO| OF] xxxxx| OF | 
+$— =~ $e et eee ee +--+ ------ 4-4-4 -- +-—+ 


SUB <name> (PV,#5) @ BEEP 


Ow ne ee + ee ee ee > 
| 
| 
tone $----4$----- $—e----- $----4------ a ee ee + 
| StLen| tSUB| xxxxx| tLITRL| name| tPRMST| PV| tCOMMA| t#/53] tPRMEN|... 
+----- $a —-- 4+ ----- $e----- $$ -- ~~~ +--+—------ 4--+--4+~------ + 
ee $e + 
| | 
V | Vv 
+—---- i $e +--+ 
... | X¥XkK|4F|StLen| tBEEP] OF 
+----- 4+-—$—----- +----- +--+ 


7.1.2.4 IMAGE 


Parsing of an image string is performed at the time the USING 
statement is executed. 


There are no special considerations for parsing the IMAGE keyword, on 
the level of the BASIC interpreter. An IMAGE statement is tokenized 


as follows: 
a we ww we a a a ee + 
| | 
| Vv 
$----- +----- $------ torn ------- +—--+--+ 
| Line#|StLen| tIMAGE| image string! DOI0F| 
| panne e $—----- $------ $n e ee +--4-—-+ 


Similarly, a USING statement (for example, DISP USING "<image 
string>", or DISP USING <line#>), is tokenized with the image string 
as an expression, or a tLINE# token to reference the IMAGE statement. 


Parsing of the image string must be performed at the time the USING 
statement is executed, since the image string expression can be 


7-8 





—— 


HP-71 Software IDS - Detailed Design Description 
Statement Parse, Decompile, and Execution 


changed during execution (consider DISP USING S$; <output list»). 


IMAGE syntax is of a peculiar design -- that is, its rules are not 
governed by the BASIC interpreter. In addition, image parsing is 
inextricably linked to its execution. For these reasons, image 


parsing is entirely separaté from BASIC interpreting. For a detailed 
description of the tokenization of image strings, see IDS Volume III, 
module MB&IMG. 


7.1.3 Global Assumptions 
Status bits: 


S4 - No Restore of Input Pointer 
Used by error handler to determine if RESPIR should be called 
for correct cursor position. 


$5 - Line Number on Line 
Program line, as opposed to immediate execute line. 


S6 - Pending THEN 
Within the scope of an IF-THEN clause, and ELSE has not yet 
been encountered (ELSE is a legal terminator at this point; IF 
is not legal). 


~ 


S10 - Implied LET Error 
Used by error handler to determine if statement parsed was 
being interpreted as an Implied LET (If S9 is set, then attempt 
to parse as label, else attempt to parse as implied DISP). 


flRIN- System flag indicating that parse is externally invoked. 


Registers 


D(A) End of Available Memory; used to check against when 
outputting tokens. 


otatement Scratch Ram: 


S-RO-2 When flRIN is set (indicates parse is externally invoked), 
this RAM location contains the address to return to. 


S-RO-3 IF Statement in progress. All statements following THEN 
and preceding Endline are in this realm. Set if nonzero. 


SIMIDO RESTART Input Pointer 
When the RESTART flag is set, the position of D1 prior to 
the call to the lexical analyzer (contents of LEXPTR) is 
saved. Dil is restored from this ram location prior to 
restarting the lexical analyzer. 
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S-Ri-0 Original Error Number 
If a keyword is to be restarted and has not been previously 
restarted, then this is where the error number is saved. 
When a keyword has not been restarted previously, this 
location is zero. 


S-R1-1 Original Error Position 
At the same time Original Error Number is saved, the error 
position address is saved. 


S-R1-2 RESTART Address 
Each time the lexical analyzer is called to evaluate a 
lexeme at the beginning of a statement (or immediately 
after THEN or ELSE), its restart address is saved. If the 
RESTART flag is set, then the error handler restarts the 
lexical analyzer with this address. 


S-R1-3 RESTART Flag 
If the lexeme at the beginning of a statement is an XUORD 
or XFN, this flag is set; otherwise it is cleared. Set if 
nonzero. 


7.1.4 Entry Conditions from Line Parse Driver 


D1 points to the first character following the keyword. DO points 
into the output buffer, past the statement length byte and the 
keyword token. Status bits 0, 8, 9, and 10 are clear. 


7.1.5 Exit Conditions 


All parse routines which do not error exit, must return with carry 
clear. Carry set is reserved for ’middle of IF’ return. 


Dl should be pointing past the last legal character or keyword 
accepted as part of the legal parse, but no farther. In many cases 
this requires a RESPIR to be done before returning - this can be 
accomplished by ending a parse routine with: GOVLNG =RESPTR. For 
example, if an optional keyword is searched for with NTOKEN but not 
found, D1 must be backed up. Note that if GNXTCR had been called 
instead of NIOKEN, this wouldn’t be necessary since GNXTCR does not 
move Di past any non-blank character. 


D(A) should still hold the End of Available Memory. 


Whenever information is output to the Output Buffer (at the DO 
pointer) through the OUTxxx utilities, available memory is checked 
to make sure there is enough memory to write out the information. 
If there is not enough memory, an “Insufficient Memory" error is 
generated. 
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If the Parser was invoked externally, the Message Driver returns to 
the caller, instead of taking a hardwired exit. 


7.1.6 Parse Errors 


The following entry points already exist for parse errors. If 
S4=1, Dl is expected to be pointing at the input in error; 
otherwise RESPTR will be called to position D1 at the previous 
input, assumed to be the error. 


SYNTXe syntax 

IVEXPe Invalid Expression 
IVPARe Invalid Parameter * 
MSPARe Missing Parameter * 
IVVARe Invalid Variable 
ILCNTe Illegal Context 
EXCHRe Excess Characters 
QUOEXe Quote Expected 

PRNEXe ) Expected 

FSPECe Invalid Filespec 


* If IVPARe is used, and there is no remaining input in statement 
(after optional RESPIR, D1 points at @, !, ELSE, or EOL), then 
MSPARe is issued. 


If it is necessary to generate a parse error other than one listed 
above, load the low 4 nibbles of DO with the error number and 
GOVLNG =PARERR. 


NOTE: For MOST parse error exits, S10 should be Clear; S10 is the 
Implied LET error flag. 


If more details are needed to generate specific parse errors, see 


the chapter, "Message Handling’, or the header for the MFERR* 
routine. 


7.1.6.1  Relinquishing Error Handling 


In some cases it is desirable for a LEX file parse routine to not 
report its error message and position, but to give control BACK to 
the mainframe and let the mainframe report the error. An example 
of such a case is as follows: 


Consider the mainframe routine ON TIMER; further consider what 
happens when the user has HPIL plugged in, and incorrect syntax 
is used with this statement. For example: 

ON TIMER %1,1 GOSUB 50 
Here’s the scenario: ON INIR (an HPIL statement) errors out in 
the normal way (causing its error information to be saved); the 
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parse is restarted, ON TIMER also errors, and the error 
information generated by HPIL is restored and reported to the 
user, resulting in some obscure message like 

HPIL ERR: Invalid Parn, 
with the cursor’ flashing on TIMER. Obviously, this is less than 
desirable. 


By using the REST* entry point, the LEX file error is forever 
forgotten, and the mainframe-generated error is the one reported 
(or any parse error previously or subsequently reported in the 
>normal’ way). 


In short, this entry point enables language extensions to suppress 
their particular error message/error position, providing it is 
KNOWN that a parse routine exists in the mainframe which will gain 
control when the parse is restarted and which has the capability of 
giving a more coherent error message. 


To use this feature when a parse error is detected, simply doa 
GOVLNG =REST*. 


7.1.7 Expression Tokenization 


Expressions specified in statements are converted to RPN (postfix 
notation) by the expression parser and are stored in this format. 
In this form, the expression is a series of tokens. The tokens are 
described next. 


7.1.7.1 Constants 


Single-digit constants are tokenized as the ASCII character code 
for that digit. ("0" thru "9") 

Integer constants (2-12 digits) are tokenized by a byte which 
identifies the number of digits in the constant followed by a 
nibble for each of the digits. The digits are stored least 
Significant digit first. 

Floating point constants (1-12 digits) are tokenized by a byte 
which identifies the mumber of digits in the mantissa of the 
constant followed by a nibble for each of the digits. The 
digits are stored least significant digit first. Following this 
is a 3 nibble 9’s complement exponent. 

String constants (single or double quoted strings) are tokenized 
as the opening quote with the enclosed characters following and 
are terminated with a matching closing quote. 


7.1.7.2 Variables 
Variables are tokenized in one to three bytes as follows: 


[t$] [tADIGx] Alpha 
Where the t$ token is present if its a string variable, the 
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tADIGx token is present if the variable has a digit character 
after the letter and alpha is always present and encoded as the 
ASCII code for that letter. There are ten possible tADIGx 
tokens (tADIGO - tADIG9) corresponding to the ten possible 
digits. 


7.1.7.3 Operators 


Operators (monadic and dyadic) are tokenized witha single byte 
except for the relational operators which have a nibble 
following the first byte to identify the specific relation. 


7.1.7.4 Functions 


Functions are divided into four groups: 
Mainframe functions -- These are tokenized as a Single byte. 


XFN’s -- These are tokenized as an tXFN token followed by a 
byte identifying the LEX ID and another byte specifying the 
entry number within that ID. Following these three bytes is a 
nibble which says how many parameters this function reference 
actually has. 


Arrays -- The tokenization of arrays is a hybrid of variable 
and XFN tokenization. A  tARRAY token is followed by one to 
three bytes that describe the name of the array (same as for 
variables) and this is followed by a nibble describing the 
mumber of subscripts. 


Funny Functions -- This type is used for functions which defy 
normal rules for parse or execution. The tokenization is 
described in the next section. 


Following any parameterless function a tLPRP token may be 
present to preserve a "()" which followed the function. 


Any token other than those above signals the end of the expression. 


7.1.8 Funny Function Parse 


The lexical analyzer (NIOKEN) finds the keyword corresponding to 
the FFN in a lex table. It detects that its token number is 00. 
It jumps to the “execution address" of token 00. This routine 
figures out what token should be returned by looking at the letters 
of the text (or maybe some pointer the lexical analyzer passes to 
it} and leaves that in A(5-0) in the form: 


5432 10 
+------~--~+---+-+----- +—----4---- 4 + 
A: | |Fn# | Id |tFEN| 
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pw ee wn ee ee ee Pam wan ee pe ee 


It also loads B(A) with the address of a routine (in that lex file) 
which knows how to, parse that FEN. This will be called by the 
expression parser if indeed the expression parser was the one who 
called NTOKEN. It should set status bits to look like a 
parameterless function (S0-S3 clear). 


It then returns. This is actually the return from NTOKEN. 


If it wasn’t the expression parser who called NTOKEN then the entry 
returned simply looks like a function and the parse routine can 
give the same parse error that it would give if any other function 
was found. CALC mode has a specific trap for the tFFN token and 
disallows it. 


The expression parser eventually sees the tFFN token and jumps to 
the address returned in B(A). Before jumping, it compiles the 8 
nibbles in A(7-0). This leaves room for the length byte to be 
filled in. DO (the output pointer) points past these eight 
nibbles, ready for the FFN parse to take over. Dil (the input 
pointer) points wherever it was left by the lexical analyzer 
override routine described above. D(A) points to the parse stack. 
This stack must be preserved. It extends from D(A) to AVMEME. The 
FFN parse routine must respect the register usage of the expression 
parser. 


If the expression parser must be reentered to parse an expression 
within the FEN, AVMEME must be moved up to “protect” the parse 
stack. This implies that the stack length must be saved so that 
AVMEME can be set back to its original value. In order to be able 
to fill in the FFN length when it is done parsing it, DO should be 
saved also. One _ subroutine level should also be saved to prevent 
over f lowing the stack. If these three items (parse stack length, 

DO pointing past the length byte and one return stack level) are 
saved on the parse stack before moving AVMEME to protect the stack, 

then unlimited nesting of FFNs is possible. 


The net effect of the FFN parser is to parse a "“parameterless’ 
function. This implies that no parameters precede the function in 
the RPN stream of tokens. Once the FFN has been completely parsed, 

control should passed back to the expression parser in the state 
where an operand has just been found (P1-10). It should return to 
SE1-10 if the FFN returns a string result. This pushes a "Primary" 
on the parse stack and scans for another token. In either case it 
should do a RINSXM to indicate that this is a value expression. 
The expression parser continues, trying to work this primary into 
the expression. 


The CALL statement expects the expression parser to set the RAM 
nibble at PRMCNT to a non-zero value if the expression contains any 
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function that can possibly cause another call statement to be 
executed. In the mainframe, only user-defined functions can cause 
this to happen. It is conceivable that a funny function could 
perform a CALL on its own. In this Case, the PRMCNT nibble should 
be set to prevent a problem with call. There is no problem if the 
expression parser is used recursively since if the expression which 
is a parameter to the funny function contains a user-defined 
function, that “copy” of the expression parser will set the PRMCNT 
nibble and it will remain set for the duration. 


The only acceptable error exit in the process described above is 
the case of insufficient memory to continue normally; the routines 
must return in all other cases. 


7.1.8.1 Funny Function Tokenization 


The "Funny Function" token (FFN) lies just within the range of 
built-in functions. This token (tFFN) is encoded as follows: 


Homme tee $+ + $+ + ee eee + 


[tFFN| Id |Fn# |Len | Funny code | 


Fa aa hae ne a a a an pe ek + 


First comes the tFFN token followed by the Lex Id and the function 
number, just as in XFN. Following this, there is a length byte. 
This byte, when added to its own address points to the first nibble 
of code not contained in the FEN. 


7.1.9 Polling during Parse 


A statement issuing a poll (slow poll) during parse must use the 
POLLD+ entry point. This adjusts the end of available memory value 
in D(A) to reflect the save area and GOSUB stack level used by 
poll. 


AVMEMS (available memory start) must be set to the value in DO in 
order to preserve data already written to the output buffer; this 
can be done by calling AVS=DO. On return from the poll, the 
calling routine must reset D(A) to available memory end. The 
routine D=AVME does this. 


Sample code: 


GOSBVL =AVS=DO0 Set AVMEMS DO 
GOSBVL =POLLD+ 
CON(2) =pPOLL# Issue poll 


GOSBVL =D=AVME Set D(A) = AVMEME 
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7.2 Writing a Decompile Routine 


7.2.1 Global Assumptions 


INADDR - Contains pointer to statement length byte of statement 
currently being decompiled. 


LDCSPC - Contains pointer to desired cursor position in decompiled 
line (immediately following line number). 


sSSTdc - SST Flag (S1) - Set ONLY by Single Step to decompile only 
a statement not the entire line. 


S1i2-S15 - Global System Flags - Except (S12), PgmRun (S13), NoCont 
(S14), Trace (S15) 


flRIN - System flag which indicates that decompile was externally 
invoked. 


S-RO-2 - When f1RIN is set, this RAM location contains the address 
to return to. 


R3 Used by LISI; not available to decompile routines 


7.2.2 Entry Conditions from Line Decompile 


D1 points into the token stream. D1 is past the keyword token; A 
and C contain the next token. 


DO points into the output buffer, past the decompiled line number, 
keyword, and a blank. 


D(A) contains the End of Available memory; used to check against by 

the output routines. This value should remain untouched. 

7.2.3 Decompile Utilities 

For output utilities, see "How To Write a Parse Routine.” 

GTEXT1 - Given a token, outputs the corresponding text. Includes 
mumerous entry conditions and entry points which provides 
for outputting leading and/or trailing blanks. 

EOLDC - Checks for statement terminators: t@, t!, tEOL 
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EOLXC* - Calls EOLDC above; if statement terminator found, does not 
return - handles rest of statement by going to OUTELA. If 
no statement terminator found, returns to caller with 
carry Clear. 


VARDC - Decompiles variables 


LIN#DC - Decompiles and outputs a line number, suppressing leading 
zeros. 


ASCICK - Copies ascii characters from input stream to output 
buffer, until encountering a non-ascii character. 


EXPRDC - Decompiles expression pointed to by D1. 

FILDC - Decompiles file specifier 

ARYDC - Decompiles array which was compiled by ARRYCK. 

LABLDC - Assumes D1 is at tLBLRF (label reference token), steps 
over tLBLRF. If label is a literal, outputs it within 
quotes; otherwise, the string expression is decompiled. 
Returns with carry clear. 

SKIPDC - Useful if an unrecognized XUORD is encountered; skips D1 
to the end of the statement and goes to OUTELA (see 
below). 

7.2.4 Exit Conditions 

When the token stream has been exhausted, exit through either 


OUTEL1 (D1 points to statement terminator) or OUTELA (D1 points to 
statement terminator and A(B) contains it). 


D{A) points to the end of available memory. 


7.2.5 Existing Multi-use Decompile Routines 


Any keywords which have no parse to speak of (STOP and RETURN are 
good examples), can use OUTELA as their decompile routine. 


Any keywords which have an optional expression list, delimited with 
compiled commas and/or semi-colons may use DROPDC as their 
decompile routine. Note that this can be used even if no 
delimiters are compiled between expressions: the expression list is 
Still output with comma delimiters. 


Any keywords which have a mandatory expression list may use FIXDC 
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as their decompile routine. Again, delimiters need not be compiled 
between expressions; comma and semi-colon delimiters are acceptable 
and will be decompiled. 


7.2.6 Funny Function Decompile 


When expression decompile sees a tFFN token, it outputs a nullop 
and it looks up the execution address of the FFN. If the FFN can’t 
be found (ie the lex file is missing) it pretends the token is a 
tXFN and outputs XFNllleee, where 111 is the LEX ID (leading zeroes 
suppressed), and eee is the entry#. It skips over the FFN by 
adding the FFN length. No attempt is made to decompile the FFNs 
parameters. 


The decompile handler for this FFN is pointed to by a relative 
address immediately above the execution address. The FFN decompile 
handler should decompile the FFN as only it knows how. This 
decompile cannot leave unquoted characters greater than 127 in the 
buffer since this would mess up the decompiler when it is resumed. 


If the FFN contains an expression, it will have to preserve some 
information to be able to call expression decompile; it will have 
to steal some available memory at AVMEME to preserve the pointer 


which are critical to the expression decompile which is in 
progress. It will also have to save one stack level. 


Once the entire FFN has been decompiled, control should be passed 
back to the main expression decompile loop (via a GOVLNG =EXDCLP). 
The expression decompile should contime normally looking at the 
rest of the expression. The text that has been generated will be 
treated as a parameterless function with a very long name. 


7.2.7 Polling during Decompile 


A statement issuing a poll (slow poll) during decompile must use 
the POLLD+ entry point. This adjusts the end of available memory 
value in D(A) to reflect the save area and GOSUB stack level used 
by poll. 


AVMEMS (available memory start) must be set to the value in DO in 
order to preserve data already written to the output buffer; this 
can be done by calling AVS=D0. On return from the poll, the 
calling routine must reset D(A) to the current value of available 
memory end. The routine D=AVME will do this. 


Sample code: 
GOSBVL =AVS=DO0 Set AVMEM at DO 
GOSBVL =POLLD+ Issue poll 
CON(2) =pPOLL® 
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GOSBVL =D=AVME Set D AVMEM 
7.3 Statement Execution 


7.3.1 Entry Conditions 


The program counter (D0) is positioned past the begin BASIC token. 
PCADDR has been updated and points at the statement length byte for 
the statement. 


7.3.2 Global Assumptions 
Several flags have global meaning during statement execution: 


Except ($12) Exception has occured 
PemRun (S13) Program Running 

NoCont ($14) No Continue of execution 
Trace (S15) TRACE Mode active 


PgmRun (S13) is set if a program is executing. NoCont (S14) is set 
if execution is to halt after the next statement is executed. 
Single step execution sets this flag. 


7.3.3 Exit Conditions 


When the execution associated with a given statement is complete, 

control must be turned over to the run loop. This is done by 

exiting through NXISIM or RUNRIN. 

NXTSIM - Skips over statement preceded by current PCADDR. The 
statement following will be the next one to execute. 


NXTST2 - DO points to statement length byte of statement to skip 
over. 


RUNRIN - DO points to statement terminator  (t@,tEOL, tELSE) 
preceding next statement to execute. Be sure sENDx ($1) 
is clear. 


RUNRT1 - DO points to statement terminator (t@,tEOL,tELSE) 


preceding the next statement to execute. SENDx is 
explicitly cleared. 


7-19 





HP-71 Software IDS - Detailed Design Description 
Statement Parse, Decompile, and Execution 


7.3.4 Error Exits through MFERR/BSERR 


Error exits from statements and functions require only four things: 

1) S13 is set when appropriate (indicates program running) 

2) PCADDR is accurate 

3) The error number is loaded in C. 

4) P is set appropriately to select options (set ERRN, display 
error prefix, etc.). See MFERR* documentation or the "Message 
Handling" chapter for details. 

Entry points MFERR and BSERR are used for processing errors 
generated in the BASIC operating system. MFERR requires that the 
error mumber is loaded in C(B); this error exit can be used for 
mainframe generated errors (LEX file #00). However, BSERR requires 
that the error number is loaded in C(3-0), specifying both the LEX 
ID number and the message number. It is acceptable to use BSERR 
for mainframe- generated errors, as long as C(3-2) is filled with 
zeros. 


7.3.5 Use of Available Memory by Statements 


The execution of statements often requires the usurping of 
available memory. There are some restrictions on how much of 
available memory may be allocated and for how long. Refer to the 
section Available Memory Management in the “Memory Structure” 
chapter for details. 


7.3.6 Statement Execution Utilities 


FSPECx - Evaluates file specifiers; will poll for any not 
recognized by mainframe. 


FILXQ” - Evaluates mainframe file specifiers and dedicated device 
specifiers. Currently accepted device names are PORT, 
MAIN, CARD, and PCRD. 


EXPEXC - Evaluates expression pointed to by Do. Evaluated 
expression on stack. See EXPEXC documentation for 
details. 


FINDF - Given a file. specifier returned from FSPECx or FILXQ*, 
searches for the given file. Indicates upon exit, whether 
or not file found. If file found, provides information on 
where. Numerous entry points. 


EOLXCK - Given a token in A(B), returns with carry set if it isa 
statement terminator: tEOL, t@, t!, tELSE. 
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7.4 Expression Execution 


7.4.1 Entry Conditions to Expression Execute 





DO is the interpreter’s program counter; it must point to the first 
token of the expression when expression execution is called. Di is 
the active stack pointer for the operand stack during execution. 


Several entry points are available: 
EXPEX- collapses the math stack, but leaves status bits alone. 


EXPEX+ saves the caller’s status bits, and reads MTHSIK to 
position the stack pointer. 


EXPEXC leaves status bits alone, and reads MIHSTK to position the 
stack pointer. EXPEX1 is another name ffor this entry 
point. 


EXPR assumes the stack pointer is already positioned. 


| 7.4.2 Math Stack Usage and Format 


The math stack grows from high addresses to low. The stack item at 
the lowest address is said to be on top of the math stack. MIHSTIK 
is updated only upon termination of expression execution, or for 
special cases such as user-defined function execution. 


7.4.3 Data Types on the Stack 


There are four kinds of objects that exist on the math stack under 
normal circumstances: 

Real numbers 

Complex numbers 

Strings 

Array descriptors 


Real numbers exist on the math stack in standard floating-point 


form. They can be identified by a legal BCD digit on top of the 
stack. 


t=21 
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Real number on stack 
$o-+~-~— +--+ +--—+ 
High |S| Mantissa’|Exp| Low 
memo +-+---------- +---+ men 
1 l2 3 


Complex numbers consist of an E-digit on top of the stack, witha 
zero-digit just below it. This is the complex stack signature. 
Below the stack signature are two standard floating-point numbers: 
the imaginary part on top of the real part. 


Complex number on stack 


Real part . Imaginary part 
$$ ee Oe ee $---4-—4+ 
High |S| Mantissa |Exp|S! Mantissa |Exp|0E| Low 
men $a te a Se +---+--+ mem 
Strings have an FO stack signature. Below the signature is a 


five-nibble field giving the length of the string in nibbles. Then 
come nine nibbles which can normally be ignored; they contain 
destination information for string assignment if they contain 
anything useful at all. This information includes the maximum 
string length and the address of the destination. Hence, a string 
stack header consists of 16 nibbles; the ASCII text of the string 
lies tnder the header, with the first character of the string 
toward the bottom of the stack, and the last character next to the 
header. 


STRING on stack 
$a we ee eee ee $—--- = +$—------- +------ +--+ 
High {String ... |MaxLn|Address|LengthlOF] Low 
men rer ee ee ee $----- +o ----- +-----~- +--+ mem 
4 5 5 2 


A string may have another representation on the stack if it was 
created by pushing an element of a nonexistant string array. In 
this case, the tag is a F8 instead of FO. The length field will 
indicate a mull string. The name of the variable referenced and 
the element number will be filled in. This is treated as a mull 
string by system routines. This item is 16 nibbles in length with 
the following format: 





HP-71 Software IDS - Detailed Design Description 
Statement Parse, Decompile, and Execution 


Nonexistent string array element on stack 
+----- +--+ ----4+---- +--+ 
High |Ele# |00|Name|Length|8F| Low 
nen +----- $-—-4--- -4+------ +--+ men 
4 2 3 5 2 


Any other object on the stack must be an array descriptor, with its 
offset field changed to the absolute address of the array’s data 
area. 


Array descriptor on stack 
$----- +----------- +~4+-4+-4+ 
High |Address|Dim lengths|b/#[t] Low 
men $e $----------- +-+-+-+ mem 
5 8 22d 1 


b=Option base , t=Type 


7.4.4 Expression Execution Utilities 


Utilities exist for popping and type-checking arguments, along with 
reentry points for pushing results. 


POP1IN and POPON are used for popping numeric arguments. Attempting 
to pop a string or an array descriptor with these routines causes 
an error to occur. If the carry is set upon return from these 
routines, the arguments are complex. 


MPOP1N and MPOP2N establish the math modes, pop arguments, and test 
for exceptional inputs before returning. These utilities all leave 
the stack pointer (Di) positioned for placing a _ standard 
floating-point number back on the stack. 


POP1S tests for a string on the stack. Attempting to pop a number 
Or array descriptor with this routine causes an error to occur. 
Upon return, the string length is left in the lower 5 nibbles of 
the A-register, with the stack pointer (D1) at the topmost 
character of the string text. 


REVPOP has the same exit conditions as POP1S, but the string is 
reversed before returning. REV$ is a string reversal routine, 
which returns with the stack pointer unaltered. 
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7.4.5 Function Returns 


Reentry points are called function returns. The mainframe code has 
established function returns for real numbers only. FNRIN1 assumes 
the PC is still in DO, and the result is in C. FNRIN2 assumes the 
PC has been moved to A, with the result in C. These two function 
returns are for placing neu items, such as constants, on the stack; 

a stack collision check is performed, These returns are generally 
NOT used for functions which have arguments, since the stack 
pointer is usually already where it needs tc be upon return. 
FNRIN3 assumes the PC is in A, and the result is in C. FNRIN4 
assumes the PC is back in DO, and the result is in C. A typical 
numeric function will be inplenented with a call to a POP routine, 

calls to appropriate math routines, and a jump to an appropriate 
FNRIN (usually FNRINS). If a function places its result on the 
stack itself (as do most string functions), EXPR is the appropriate 
return; this begins processing of the next token. 


7.5 Implementation of Function Execution 


7.5.1 Entry Point 


The execution address should be marked as an entry point to allow 
the loader to fill in lex tables. Immediately above the entry 
point is the range of valid argument counts. 


Above this is a string of nibbles describing each parameter. Each 
nibble should have the 8’s bit set if a mumeric parameter is 
allowed. The 4’s bit should be set if a string parameter is 
allowed. The 2’s bit should be set if an array parameter is 
required. The 1’s bit is not defined but should be zero. One 
nibble is required for each possible parameter. 


The minimum argument count (0-F) is specified first, followed by 
the maximum argument count (0-F). 


For example: 


NIBHEX 8 3rd parameter numeric (if present) 

NIBHEX 8 end parameter numeric 

NIBHEX 4 ist parameter string 

NIBHEX 23 Argument count range (min=2,max=3) 
=SUBST$ P=C 15 Load actual number of parms in P 

2P= 2 Check if only 2 parms 

GOYES SUBST2 
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where 2 is the minimum argument count and 3 is the maximum argument 
count. All XFNs have a 7 nibble tokenization, the last nibble of 
which is the actual number of parameters passed to the function. 
If the function has a variable number of parameters, the execution 
code for the function can find the actual number of parameters by 
looking at the sign field of the C register. If a function has a 
fixed number of parameters, it may assume that the proper number of 
parameters are on the stack. 


Four hardware stack levels are available for function execution. A 
complete list of RAM that is available to and restricted from 
function execute is in the “Memory Structure” chapter. 


7.5.2 Entry Conditions 


The current program counter location is contained in DO and has 
been updated past the tokens that specify the function. The ’B’ 
field of the B register contains the table entry number to the 
function execution code. 


The arithmetic stack expands from the end of available memory 
(AVMEME) toward lower memory making use of available memory. At 
the time of the function call, D1 points to the “top" of the stack. 


If the stack grows as a result of the function call, a check should 
be made to prevent the stack from exceeding available memory, by 
comparing the stack pointer with AVMEMS. No LEEWAY need be 
maintained during expression execution, ie. all of available 
memory is truely available. 


7.5.3 Exit Conditions 


The program counter is stored in DO. The stack pointer is stored 
in Dl. Other than these data pointers, the function need not 
preserve any CPU registers (working, scratch, or status). See the 
section on function returns under expression execution for 
information on how to resume the expression interpreter once the 
function’s execution has completed. 


7.5.4 Error Exits through MFERR/BSERR 


Error exits from statements and functions require only four things: 
1) $13 is set when appropriate (indicates program running) 
2) PCADDR is accurate 
3) The error number is loaded in C. 
4) P is set appropriately to select options (set ERRN, display 
error prefix, etc.). See MFERR* documentation or the "Message 
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Handling" chapter for details. 
Entry points MFERR and BSERR are used for processing errors 
generated in the BASIC operating system. MFERR requires that the 
error mumber is loaded in C(B); this error exit can be used for 
mainframe generated errors (LEX file #00). However, BSERR requires 
that the error mumber is loaded in C(3-0), specifying both the LEX 


ID number and the message number. It is acceptable to use BSERR 
for mainframe- generated errors, as long as C(3-2) is filled with 
zeros. 


HP-71 Software IDS - Detailed Design Description 
7.5.5 “Funny” Functions 
The execution address of tFFN is exactly the same as tXFN. This 

will cause the execution address of that particular FEN to be 
called. One peculiar side effect of using XFN execute to get to 
the execution address is that the program counter (DO) will have 
been moved to point past the first nibble of the length byte. The 
first nibble of the length byte will have been read into C(S) since 
XFN thought it was reading a parameter count. The FFN execute 
should merely move DO one nibble farther to finish skipping the 
length byte. 


amemme aee, 


The FFN should do what it has to in order to leave exactly one item 
on the stack. It should not alter what was already on the 
stack--this is the nature of parameterless functions. 


Once it has its value pushed on the stack, it should jump to EXPR, 
or use any of the normal entry points. 
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When extending system capability through BASIC, there are several 
items to keep in mind. 


8.1 ROM Generation 


Before a BASIC file is RUN, the system chains together all its 
labels, subprograms, and user-defined functions. Also, any line 
number references are compiled as they are encountered in the 
running program. If a file in ROM is not already chained or does 
not have its line number references compiled, then at the time it’s 
invoked an error will result as the system attempts to write to 
ROM. There are several ways to avoid this unpleasant situation. 


8.1.1 Chaining a BASIC File 
There are three ways to chain a file: 
1) COPY it. The destination file will be chained. 
2) RUN it. 
3) TRANSFORM it into TEXT, and then back into BASIC. 
Keep in mind that any time a file is modified, it is no longer 
chained. 


8.1.2 Compiling Line Number References 


To compile all line number references in the current file, simply 
execute: 


RENUMBER 1,1,1,1 


This statement acts as a NOP, except for the fact that it compiles 
line number references (No line numbers are changed). 


I 
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8.2 BASIC Application Standards 


8.2.1 Preserving The Main Environment 


When the user runs a BASIC file to perform a given application, 
every effort should be made to preserve as much of the user’s 
environment as possible. This includes variables, user flags, 
display format, etc. To further this end, we suggest that any 
BASIC application program which may destroy or use BASIC variables, 
should save the user environment via a CALL statement. 


For example, say there is an application program, PLOT, which by 
necessity must use BASIC variables. If the first line of PLOT is 
as follows, then the user’s variables will remain intact: 


10 CALL PLOT @ SUB PLOT 


Now the user can safely invoke PLOT by simply saying: 
> RUN PLOT 


8.3 BASIC Packing Techniques 


With some forethought, you can use features of the HP-71 BASIC 
interpreter to minimize the amount of memory that your BASIC 
programs require. Listed below are our suggestions, along with the 
actual memory savings. 


1) Don’t use GOTO immediately after THEN or ELSE: 
Change: 
10 IF FLAG(X}) THEN GOTO 100 
To: 
10 IF FLAG(X) THEN 100 
This saves three bytes. 


2} Check for a mull string using the LEN function: 
Change: 
10 IF A$#"" THEN ..... 
To: 
20 IF LEN(A$) THEN .... 
This saves three bytes. 


3) Instead of using THEN and ELSE to make one of two assignments 
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to a variable, do one assignment followed by a conditional to 
determine if the other assignment should be done: 

Change: 

10 IF X THEN K=L ELSE K=P 

To: 

10 K=P @ IF X THEN K=L 

This saves three bytes. 


4) Instead of testing a flag to determine if a variable 
(or value) should be incremented, just add the flag value: 
Change: 
10 IF FLAG(X) THEN K=K+1 
To: 
10 K=K+FLAG(X) 
This saves five bytes. 


Change: 
20 IF NOT FLAG(X) THEN K=K+1 
To: 
20 K=K+NOT FLAG(X) 
This also saves five bytes 


5) Use single character alpha variables, instead of alpha-digit 
variables. There is a one byte savings for each occurence. 


6) Concatenate a statement to the previous one, instead of using 
a new line mumber. There is a tuo byte savings for each 
concatenated statement. 


8.4 Version Number 


It is strongly recommended that each BASIC software application 
respond to the VER$ poll to indicate the version of the software. 


This requires a LEX file to be included with no keywords, but the 
appropriate code to indicate the proper VER$. The last LEX ID for 
Custom Products - Special (244) is used as the LEX ID for VER$ 
response of BASIC applications. This LEX ID may be used for words 
by a particular custom application, without conflict. 


The VER$ string should indicate the application name, using 3 or 
less characters, followed by acolon anda single letter. The 
Single letter indicates the specific version number. The letter 
“A” is the first released version. 


The following examples show VER$ strings for three HP71 BASIC 
applications: 


VER$ String Application Pac 
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CIR:A HP71 Circuit Analysis Pac - Version A 
FIN:A HP71 Finance Pac - Version A 
SUR:A HP71 Surveying Pac - Version A 


The LEX file containing the VER$ should be the first file in the 
ROM and have a name representing the application. It is suggested 
that the file be protected from being copied. This can be 
accomplished either by designating the file as Private, or by 
ensuring that the file name has some lower case characters. The 


latter can be done by poking into the file name field of the file 
header: 


10 DIM F$,N$,A$(5] INTEGER N 

20 DISP “Set name to lower case” 
30 INPUT "Old filename:";F$ 

40 INPUT "New name:",F$;N$ 

50 A$=ADDR$(F$) 

60 N$=(N$8&" ")(1,8] 

70 FOR I=1 TO 8 

80 N=NUM(N$[I]) 

90 POKE A$, DIH$(N) [5] &DIH$(N) [4,4] 
100 A$=DTH$(HTD(A$)+2) 

110 NEXT I 

120 DISP "Done with name change" 


The following examples show the names of the LEX files containing 
the VER$ for three BASIC application pacs: 


VER$ LEX File Name Application Pac 
Circuit HP71 Circuit Analysis 
Finance HP71 Finance 
Survey HP71 Surveying 
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This chapter provides a brief overview of some operating system 
entry points which are useful for external software development. 


9.1 Decompile Utilities 


Entry Description 

GTEXT1 Given a token, outputs the corresponding text. 
Includes numerous entry conditions and entry points 
which provides for outputting leading and/or trailing 
blanks. 


EOLDC Checks for statement terminators: t@, t!, tEOL. 

EOLXC* Calls EOLDC above; if statement terminator found, does 
not return, but handles rest of statement by going to 
OUTELA. If no statement terminator found, returns to 
caller with carry clear. 

VARDC Decompiles variables. 


LIN#DC Decomplles and outputs a line mumber, suppressing 
leading zeros. 


ASCICK Copies characters from input stream to output buffer, 
until encountering a character with high bit set. 


EXPRDC Decompiles expression pointed to by D1. 

FILDC* Decompiles file specifier. 

ARYDC Decompiles array which was compiled by ARRYCK. 

LABLDC Assuming D1 is at tLBLRF (label reference token) , steps 
over tLBLRF. If label is a literal, outputs it within 


quotes; otherwise decompiles string expression. 
Returns with carry clear. 


SKIPDC Useful if an unrecognized XWORD is encountered; skips 
Di to the end of the statement and goes to OUTELA (see 
below). 
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9.2 Display and Keyboard Control Utilities 


9.2.1 Display Control 


The LCD display and all associated HP-IL "DISPLAY IS" devices may 
be controlled by sending characters to the DSPCHA/DSPCHC routine. 
In general, these characters are processed as if they are being 
passed on to some external display device but the processing is 
actually performed by the HP-71 CPU. This includes insert mode, 
processing escape sequences and in general all necessary 
maintenence of the display buffer and status information. 


The display buffer is controlled by sending characters as described 
above but the actual LCD is generally not affected by these 
characters. It is only updated when the BLDDSP routine is called. 
At that time the display buffer and status information is used to 
decide which bits of the LCD should be on. It also controls the 
left and right arrows that indicate whether the buffer extends past 
either end of the window. 


9.2.1.1 Carriage Return and Line Feed 


When a carriage return is sent to the display (via DSPCHA) it will 
cause BLDDSP to be called automatically. If the display needs to 
be updated to reflect the current display then BLDDSP must be 
called explicitly. In general calling BLDDSP doesn’t take long if 
the LCD already reflects the display buffer since a status bit 
(Exact) is cleared whenever anything is done to the display buffer 
that might alter the LCD bit pattern that would be built. BLDDSP 
returns immediately if that bit indicates that the display is 
already built correctly. 


When a carriage return is sent to the display, the cursor (and 
FIRSTC) should be reset to zero. What actually happens is that a 
flag is set so that when the next character is sent to the display 
these values will be reset before the character is processed. This 
allows the information needed to properly build and scroll the 
display to be preserved until it is no longer needed. 


The character scroll rate is checked when a carriage return is 
received. If it is zero, then the first character in the display 
is moved so that the last character in the buffer will fit in the 
display. If the scroll rate is infinite, then the display is built 
Starting at the first character in the buffer (pointed to by 
FIRSTC). Inall other cases, the display is built starting where 
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FIRSIC points (usually zero) and then the character scroll delay is 
performed, then the FIRSTC is incremented and the display rebuilt. 
This is repeated until all characters in the display buffer have 
been viewed. 


When a line feed is sent to the display, the buffer should be 
Cleared, What actually happens is that a flag is set so that when 
the next character is sent to the display the buffer is cleared 
before then character is processed. This allows the characters in 
the display buffer to be scrolled through the display even though 
the display has technically been cleared. 


The display delay is triggered whenever a line feed character is 
sent to the display unless the cursor is on (CurOff clear) or the 
delay suppress bit (XDelay) is set. 

9.2.1.2 Display Escape Code Sequences 


The HP-71 display accepts the following escape sequences: 


Esc Q -- Insert cursor 

Esc N -- Insert cursor (with wrap) 
Esc R -- Replace cursor 

Esc C -- Cursor right 

Esc D -- Cursor left 

Esc H -- Home cursor 

Esc J -- Clear Display (Treated same as ESC K) 
Esc K -- Delete through end of line 
Esc > -- Cursor on 

Esc < -- Cursor off 

Esc E -- Reset display 

Esc P -- Delete char 

Esc 0 -- Delete char (with wrap) 


Esc % <col> <row> -- Set cursor position absolute 
Esc Ctrl-C -- Cursor far right 
Esc Ctrl-D -- Cursor far left 


9.2.1.3 Scrolling The Display 


Once characters have been sent to the display buffer it is 
frequently necessary to allow the user to scroll the contents of 
the buffer using the cursor keys. The SCRLLR routine does this. 
It will watch the keyboard and cause the display to scroll whenever 
one of the scrolling keys is hit. It will return when the user 
presses a key other than a scrolling key. It will also time out 
after ten minutes if no key has been pressed. 
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9.2.1.4 Setting The Bit Pattern In The Display 
The actual bit pattern in the display is normally set by BLDDSP to 
reflect the display buffer. However, at a lower level, the BLDBIT 
routine may be used to set the bit pattern according to some other 
buffer. This is used to implement the "VIEU" and “ERRM" keys. 
9.2.2 Keyboard Interface 
Keyboard scanning is performed by KEYSCN. This routine is called 
by the interrupt routine but may be called from anywhere. If it is 
called too often key bouncing may result. To prevent this, the 
entry point DEBNCE can be used to cause a specified wait before 
performing the keyscan. 
When KEYSCN finds keys newly down it adds to the queue of keys in 
the keyboard buffer. This buffer holds up to 15 keys. If the 
buffer is full then the new keys are discarded. 
The POPBUF routine should be used to remove keys from the buffer. 
This routine sets up the buffer so that repeating keys can work. 
9.2.3 Summary 

Entry Description 

BLDDSP Build LCD pattern from display buffer. 

BLDBIT Build LCD from specified buffer. 

DEBNCE Debounce key before keyscan. 

DSPCHA Send character in A(B) to display buffer. 

DSPCHC Send character in C(B) to display buffer. 

DSPRST Reset display. 

KEYSCN Keyboard scanning. 


POPBUF Remove keys from buffer. 


9.3 Expression Execution Utilities 
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9.3.1 Utilities for Pushing Items Onto Math Stack 


Entry Description 


EXPEXC The normal entry point for expression execution. 
Evaluates an expression by processing the tokenized 
stream. The value(s) are left on the stack when done. 


FNRIN1 Resumes expression execution after pushing a value onto 
the stack. Related entry points are FNRIN2, FNRIN3, 
and FNRIN4. Further described in the "Statement Parse, 
Decompile, and Execution" chapter. 


BF2STK Adds a string to the stack from a string of characters 
in memory. 


STKCHR Creates a string on the stack ome character at a time. 
It works with ADHEAD to build a proper stack iten. 


ADHEAD Adds the proper string header to a string that has been 
placed on the the stack by SIKCHR. 


9.3.2 Utilities for Popping Items Off Math Stack 


The following utilities are used for popping numeric or string 
arguments off the MATH Stack, and for checking their type. 


Entry Description 


ee ee me ee ee 2 TO ON EN OY A ED mS ee a me SS aie eS ee ate ee em ome ee ee ee ee oe ee oe me oe oe ee ee oe we ee we oe oe oe oe we we ee we we es 


POP1N Pops a numeric argument. If item is a string or a dope 
vector, a fatal error occurs. If the carry is set upon 
return, the argument is complex. 


POPON Pops two numeric arguments. If either item is a string 
or a dope vector, a fatal error occurs. If the carry 
is set upon return, the arguments are complex (coerced 
to match each other if necessary). 


MPOP1N Similar to POPIN, but establishes the math modes, pops 
an argument, and tests for an exceptional value before 
returning. Leaves the stack pointer (D1) positioned 
for placing a standard floating-point number back on 
the stack. 


MPOP2N Similar to POP2N, but establishes the math modes, pops 
arguments, and tests for an exceptional values before 
returning. Leaves the stack pointer (D1) positioned 
for placing a standard floating-point mumber back on 
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the stack. 


POP 1S Tests for a string on the stack. Attempting to pop a 
number’ or dope vector with this routine results ina 
fatal error. Upon return, the string length is left in 
the CPU, with the stack pointer at the topmost (lowest 
address) character of the string text. 


REVPOP Has the same exit conditions as POP1S, but the string 
is reversed before returning. 


REV$ Reverses character order of a string on the stack. 
Returns with the MATH Stack pointer unaltered. 


POPMIH Moves the stack pointer past one item on the stack. 
This item may be string, real, complex, etc. 


9.4 File I/0 Utilities 


The following utilities are used to create files, open files, read 
or write arbitrary data to or from files, and to close files. For 
further information on file access, see the “File System" chapter 
in this volume and the "File Utilities" chapter in Volume II of 
this document. 


Entry Description 


CLOSEF Close an open file. 


CRIF Create a file of arbitrary type, in mainframe or on 
mass medium. Does not open file. 


FIBADR Fetches the address of an open file’s FIB into register 
DO. 


FINDF Find a file in memory given its name and memory device 
type. 


FSPECx Evalute (execute) a tokenized file specification to 
determine the file name and device type. 


MVMEM+ Expand or contract the contents of a file in memory. 
May be used to delete a file from the file chain. 


OPENF Open a file given its name and device type. 


PRGFMF Purge a file in memory. 
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PURGEF 


RDBYTA 


READNB 


RPLLIN 


WRBYTC 


URIINB 


Purge a file in memory or on mass mediun. 


Read a byte from an opened byte-oriented file. See 
also WRBYTC. 


Read an arbitrary number of nibbles from an opened file 
of any file type. See alse WRIINB. 


Replace, delete, or insert a line or stretch of any 
number of nibs in a memory file. 


Write a byte to an opened byte-oriented file. See also 
RDBYTA. 


Write an arbitrary number of nibbles to a an opened 
file of any type. 


9.5 Flag Utilities 


we oe ee we 


Description 


ee wm eee eee me we ee we ee ee ee ee ee me we ee wee we ae ae ae ae ae ae a ea ae ae oe wee we ee 


Update annunciators according to user and system flags. 
Clear a system flag and update annunciators. 

Set a system flag and update anmunciators. 

Test a system flag. 

Toggle a system flag. 


Pop, round, convert real argument to hex integer. 


9.6 Math Utilities 


What follows 
routines that may prove useful. 


category. 


is a brief description of some built-in HP-71 math 
The routines are grouped by 


9.6.1 Numeric Comparison 


Entry 


~~ ew ew ew oe 


TST15 


Description 


me mee eee wee ee we we we ee em we we we ee wre we ee ee wee ne eee ee ee ew we we we we we we re ee ee we we et we wre ee ee ae ee eee we ee 


Compare two 15-digit arguments. 





HP-71 Software IDS.- Detailed Design Description 
Utilities 


9.6.2 Trig Routines 
Entry Description 
“RGIS Compute angle of pair (x,y) of 15-digit arguments. 
SINi5 Sine of a 15-Digit argument. 
COS15 Cosine of a 15-Digit argument. 


TAN15 Tangent of a 15-Digit argument. 


9.6.3 Inverse Trig Routines 
Entry Description 
“ASINIS Arcsine of a 15-digit argument. = stst=~CS 
ACOS15 Arccosine of a 15-digit argument. 


ATAN15 Arctangent of a 15-digit argument. 


9.6.4 Arithmetic & Square Root 
Entry Description 
“ADDONE Add one (u+1) to a 15-digit argument. 
SUBONE Subtract one (x-1) from a 15-digit argument. 
1/X15 Invert (1/x) a 15-digit argument. 
AD2-15 Add two 15-digit arguments. 
AD15S Add two 15-digit arguments, preserving SB & XM. 
SB15S Subtract two 15-digit arguments, preserving SB & XM. 
MP2-15 Multiply two 15-digit arguments. 
DV2-15 Divide two 15-digit arguments. 


SQR15 Square Root of a 15-digit argument. 


SQRSAV Square Root of a 15-digit argument, preserving SB & XM. 
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9.6.5 Integer-Fraction Functions 


Entry Description 


ewe ee ee ee ee ee ee we te we oe we oe we em we ee ewe we we we we we we ae a we wee www rw www we ew ew ewe we we we 


CLRERC Clear the fractional part. 


INFR15 Locate decimal point. 


9.6.6 Logarithmic Functions 


Entry Description 


ae oe we we ee ee ee cee cee ee ee ee re mee ee ee ee ee ee te ee ee ee wee ce re ee ee we ee ae ee ee ee ewe ee wre ee ee ee ee ee eee ee ee ee ee ee ee ee 


LN15 Natural Logarithm ( ln(x) ) of a 15-digit argument. 
LN1+15 In(1+x) of a 15-digit argument (LOGP1 in HP-71 BASIC). 
LGT15 Log base 10 of a 15-digit argument (LOG10 in HP-71 
BASIC). 
9.6.7 Exponential & Involution 


Entry Description 


ee ee oe ee we — ee ee ee ee ne me ee ee re we re ee ee ee rm ee wee ee es ee ee we ee ee ee ee wee ee ee ee ee ee ee ee ee ee es ee ee ee ee oe ee ee 


EXP1i5 e°x of a 15-digit argument (EXP(x) in HP-71 BASIC). 


EX-115 fe“x - 1] of a 15-digit argument (EXPMi(x) in HP-71 
BASIC). 


YX2-15 Involution of a 15-digit argument (power function y*x 
in HP-71 BASIC). 


EX15 Exponent value of a 15-digit argument (EXPONENT(2x}) in 
HP-71 BASIC). 
9.6.8 Conversion Between 15-forms and 12-forms 


Entry Description 


ee we we we ee we — ee cre ere ee mee er we ce om cee em are te ee me we ee ee ee ee eee ee ee eee ee we ee es es ee ee ee ee ee ee ae 


SPLITA Split (unpack) 12-form in A into (A,B). 
SPLITC Split (unpack) 12-form in C into (C,D). 
SPLTAC Split 12-forms in A & C into (A,B) & (C,D). 


SPLTAX Split 12-form in A, replace signaling NaN, and set XM. 
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uRES12 


uRESD1 


uRND>P 


Pack 15-form math result into a 12-form, consulting 
rounding modes & TRAP values. 


Variation of uRES12 preserving D1. 


Round 15-form to p digit 15 forn. 


9.6.9 Pop, Test, Prepare 1 Argument 


we ew ee wee ee oe oe 


ARGPRP 
ARGSTA 
ARGST- 


POP1R 


9.6.10 


— en oe oe ee me ee oe 


FCSTRT 


9.6.12 


Description 
“Read user modes, fall into ARGPRP. SSS 
Pop real, detect nonfiniteness, split & normalize. 

Read user modes, fall into AGRST-. 


Pop real, error for NaN, detect nonfiniteness. 


Pop real, error for complex. 


Scratch Math Stack 


Description 

“Pop 15-digit value into (C,D) fron top of stack, 
Recall 15-digit value into (A,B) from top of stack. 
Recall 15-digit value from 1 below top of stack. 


Recall 15-digit value from 2 below top of stack. 


Recall 15-digit value from P below top of stack. 


Push 15-digit value in A/B onto top of stack. 


Factorial 


Description 


ww ww ww ww ee oe oe oe ee ew ae om ae we we ee ee we ee ee we ee ee ree eee we wre ee ee ee es ee ee ee me ee ee eee 


Factorial for finite 15-digit nonnegative integer. 


Statistical Utilities 


Description 


ee om ee we a we we we wwe wwe ww we we we ow ee wee wee wee a we ee ee we we ee ee ae ee ee ewe we we ee ee es es we a ee 
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GETSA Get starting address of current STAT array, test number 
of variables and length of array. 
VARNBR Pop 1 real argument and fall into VARNB-. 
VARNB- Convert, round to hex integer, create NaN for invalid 
variable number. 
9.6.13 Miscellaneous Math Utilities 


Entry Description 


ee ee ee me ee ee oe ee ee cee ee ee rm me ee ee we we wm we ee ee ee ewe ee we we we we we we we we re ee wee ee es i ee ee ee ee 


BIASA+ Bias (or unbias) the exponent of a 15-digit argument 
into (A,B). 


BIASC+ Bias (or Unbias) the exponent of 15-digit argument into 
(C5 D)s 


CLASSA Classify argument into one of 12 pigeonholes. 

DBLSUB Double precision fixed-point subtract: (A,C), (B,D). 
DBLPI4 Create 31-digit (double precision) PI/4 in (B,D). 
EX15M Fetch exponent of a 15-digit argument. 

FINITA Test for a finite number. 

FINITC Test for a finite number. 

FLIP8 Toggle status bit S8. 

FLIP10 Toggle status bit S10. 

FLIP11 Toggle status bit $11. 


GETCON Fetch constant from Numeric Constant Table located at 
TRC90. 


GETVAL Fetch constant from constant table at arbitrary 
address. 


HNDLFL Set exception flags. 
HTRAP Consult TRAP values. 
INVNaN Exit code for an IVL operation. 


MAKE1 Create 12-dig value ’1’ in C and compare with B. 
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MESSG 
MSN15 
ORGSB 
ORXM 
ORSB 
PI/2 
SAVGSB 
SAVEXM 


SAVESB 
SHF LAC 
SHFRAC 
SHFRBD 
Tuo* 
XYEX 


Send out warning messages. 

Select Rost Significant NaN in 2-Argumnent function. 
Set Sticky Bit (SB) if s5-1. 

Set External Module Missing bit (XM) if s9=1. 

Set Sticky Bit (SB) if s7=1. 

Create 15-digit PI/2 in (C,D). 

Save Sticky Bit (SB) in s5. 


Save External Module Missing bit (XM) in 89, and Sticky 
Bit (SB) in s7. 


Save Sticky Bit (SB) in s7. 

Double precision left shift (A,C). 
Double precision right shift (A,C). 
Double precision right shift (B,D). 
Double precision doubler. 


Exchange (A,B) with (C,D). 


9.7 Parse Utilities 


9.7.1 Parse Input Utilities 


NTOKEN 


RESPTR 


Description 


—— ee Oe te OP ee ee ee a oe ee ee oe em ee oe om om om ee oe ow ee ew oe ee owe we om om wm wm ee ee ee ee ee ee ee ee ee we ae ee ew oe ee oe 


Skips over any blanks, returns the first non-blank 
character in A(B); leaves Dl at the first non-blank 
character. In the case where Di already points ata 
non-blank character at the time GNXICR is called, D1 is 
not moved. 


Skips over any blanks, and returns the tokenization of 
what follows in register A. D1 is past what was 
tokenized. LEXPTR contains the value of D1 (past any 
blanks) prior to the call. 


Restores Dl from the value saved in LEXPTR by NTOKEN. 
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WRDSCN Parses current input characters into a token and checks 
for a match with one of a_ given table of tokens. Ifa 
match is found, the token is output and control is 
passed to the corresponding address specified in the 
table. This is an appropriate routine to use if the 
presence of any number of keywords is legitimate at 
this point in the input stream. For example, OPTION 
parse, which allows only BASE, ROUND, or ANGLE as 
following keywords: 


GOSUB WRDSCN 
CON(2) =tBASE 
REL(3) =FIXP Goto FIXP if tBASE found 
CON(2) =tANGLE 
REL(3) OPTP10 Goto OPTP10 if tANGLE found 
CON(2) =tROUND 
REL(3) OPTP20 Goto OPTP20 if tROUND found 
CON(2) 0 Terminates table 

¥ 


GONC OPTP30 Returns here with carry clr if 
: nothing in table found 


This utility should be used to guarantee a_ specific 
keyword is found by the lexical analyzer. Since WRDSCN 
automatically restarts the lexical analyzer, this 
prevents a shorter keyword in another LEX file from 
being returned instead. 


9.7.2  Parse/Decompile Output Utilities 


Often it is necessary to output characters or tokens to the output 
buffer, or just to skip DO (output pointer) over a certain number 
of nibbles while checking for sufficient memory. There are 
numerous utilities to do this. In addition to the entry point 
names given below, each utility (except OUTNIB) has additional 
entry points to output from register C instead of A. 


Entry Description 


ew we ee oe ——— RE OS RS ES SS SS DN SY Oe OOD AD ED ee ee ce ee oe oe oe om ee ee me wm ee oe oe oe Oe oe oe on ee ee ee ee ee oe 


OUINIB Outputs a single nibble from the low nib of C. 


OUT1TK Outputs a byte from A{B). Alternate entry point OUIBYT 
outputs a byte from C(B). 


OUT2TK Outputs two bytes from the lower 4 nibbles of A. 
Alternate entry point OUT2TC outputs from C. 


OUT3TK Outputs three bytes from the lower 6 nibbles of A. 
Alternate entry point OUT3IC outputs from C. 
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OUINBS 


9.7.3 


EXPPAR 


NUMCK 
STRGCK 
CATCHR 


CNVWUC 


COMCK 
LBLINP 
EOLCK 


ARRYCK 


SPLVRP 
NXTP 


OUTVAR 


Outputs n nibbles from the lower n nibbles of A. P 
must be set to n-i. Alternate entry point OUTNBC 
outputs from C. 


t 


Parse General Utilities 


Description 
Parses and outputs valid file specifier. 


Parses valid file name. If it is a string expression, 
then it is tokenized and written to output buffer. If 
it is a literal, the file name is returned in A with 
C(S) set for UP (word through pointer) write of the 
file name characters. 


Parses expression; returns information on whether 
expression was valid and whether it was string or 
mumeric. If it was valid, calls NIOKEN on whatever 
followed the expression and returns. 


Parses valid mumeric expression; 
points. 


has mumerous entry 


Parses valid string expression. 

Categorizes character in A(B) (or character pointed to 
by D1) as (a) digit, (b) letter, (c) special character 
(% + ysy.05% 5 gay OF 1d). other: 

Converts next 8 characters in input’ buffer to 
uppercase. There are multiple entry points, including 
one to skip over preceding blanks. 

Sees if next token is tCOMMA. 

Parses line mumber or label. 

Checks for statement terminator: t@, t!, tEOL. 


Verifies 
subscripts. 


array subscripts; allows one or _ two 
Number of subscripts returned in B(A). 


Parses and outputs simple variable, or error exits. 


Parses and outputs simple numeric variable, 
exits. 


or error 


Given a variable token in A, outputs the variable. 
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9.8 Statement Execution Utilities 


Entry Description 
FSPECK Evaluates file specifiers; will POLL for any not 
recognized by mainframe. 


FILXQ™ Evaluates mainframe file specifiers and dedicated 
device specifiers; devices currently accepted are PORT, 
MAIN, CARD, PCRD. 


EXPEXC Evaluates expression pointed to by DO. Upon exit, 
evaluated expression is onthe stack. See EXPEXC 
documentation for details. 


FINDF Given a file specifier returned from FSPECx or FILXQ’, 
searches for the given file. Indicates upon exit, 
whether or not file found. If file found, provides 
information on where. Numerous entry points. 


EOLXCK Given a token in A(B), returns with carry set if it is 
a statement terminator: tEOL, t@, t!, tELSE. 


9.8.1 Utilities for PRINT class statements 


PRINI and DISP statements are very similar. The mainframe may be 
extended to allow other statements of the same class, such as 
OUTPUT. What these statements have in common is that they take an 
expression list and output ASCII strings to a device. The way the 
system works is that a nibble of RAM (SIMIRO(0)) is set to a digit 
that identifies the type of the statement. This nibble is used to 
determine the current information on how to output to the proper 
device. 


The CKINFO routine looks at this nibble and sets up in statement 
scratch RAM all the information required. For DISP and PRINT this 
information includes the address of a handler routine for that 
device, a pointer to the relevant position/width counters, and the 
endline string. Other parts of statement scratch may be used to 
hold other information necessary for the handler. The handler is a 
routine that is capable of sending a block of characters to the 
output device. Immediately above the handler code is a 5 nibble 
relative offset to a routine that should be called once the entire 
statement has been finished--this allows for necessary cleanup, 
ect. 


Thus, execution of statements of the PRINT class is divided into 
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three parts: 


PART1: Set STMTRO(0) to the statment type and call CKINFO to 
set up for parts 2 and 3. 


PART2: This is the handler that knows how to send a block of 
characters to a device. 


PART3: This is the clean up routine that is called at the end 
of the entire statement. 


The at SIMTRO nibble is preserved throughout the execution of the 
Statement. Even if the user changes the PRINIER IS assignment in 
the middle of a PRINI statement (via a multi-line user-defined 
function) this nibble will still say that it is a PRINT statement. 
If amulti-line user-defined function is referenced within an 
expression to be output, CKINFO will recalculate all the 
information pertinent to the current statement. This insures that 
the output always get sent to the right place in the right format. 


To implement a new statement of the PRINT class, it is necessary to 
be allocated a unique statement type to be filled in STMTIRO(0). 
The CKINFO routine polls (pPRICL) to find a routine to fill in 
statement scratch area with the appropriate information. This poll 
must be handled. The PRINT statement causes a different poll 
(pPRIIS) which determines the PRINTER IS device if any. 


9.9 System Buffer Utilities 


Entry Description 


ae oe oe owe oe ow — oe we we we we we om 8 oe 0 oe ee ee ee en ee me ee et we oe me we we we wm we es ewe we 0 ee we oe en we es ee 


1/OFND Given a buffer ID, returns pointer to that buffer. 

I/OALL Given a buffer ID and desired buffer length, either 
expands or contracts existing buffer or creates buffer 
of the specified length and ID. 

1 /OEXP Expands buffer by a specified mumber of nibbles. 

1 /OCON Shrinks buffer by a specified number of nibbles. 

1/OCOL Shrinks buffer to length zero. 

I/ODAL Deletes (deallocates) specified buffer. 


1/GRES Sets high bit of buffer ID to preserve buffer during 
pCONF . 


IOFSCR Finds available scratch buffer ID. 
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9.10 Variable Storage Utilities 


Te process an assignment statement, expression execute (routine 
EXPEXC) is called to evaluate the destination variable to the left 
of the equal sign. If the destination is legal, certain 
information must be saved away such that it can be retrieved after 
expression execute has been called to evaluate the expression to 
the right of the equal sign. The utility DEST saves this 
information away in Statement Scratch RAM so that when EXPEXC is 
called it will be preserved and updated if memory moves (see 
description of DEST below). 


Following expression execute, the B register looks like: 


$$ —— - - + - - -  $ - $------- + 
B: |tl2nd Index|ist Index| Address| 
$—-4----4---- +--+ $------- + 


t = type (= C minus actual type) 


-- Integer 

-- Short 

~- Real 

-- Complex short 

Complex 

-- String 

-- Nonexistent numeric array 
-- Nonexistent string array 


gaquvourmmorn 
' 
i 


2nd Index = Second index of substring function (string only) 


1st Index First index of substring function (string only) 


Address Variable address if variable exists (high nibble 
will be nonzero). 
= Variable name if variable does not exist (3-digit 
format with 00 in nibbles 3 and 4). 
= 00000 if an out-of-bound array element has been 
specified. 


Other destination information resides in function scratch following 
expression execute. F-R1-0 contains the element number computed by 
the array reference. This is used by TRACE.  F-R1-3 contains the 
subscript count used ina reference to a nonexistent array. This 
is used when an implicit array declaration is recognized. 


Since strings may be stored directly into substrings, the stack 
header for the actual strings must sometimes carry destination 
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information. The substring function maintains the destination 
information kept in the B-register and in function scratch with 
this stack header information. See the section on "Data Types" in 
the “Internal Data Representation" chapter. 


DEST Stores destination variable information in the 
following areas of Statement Scratch RAM: 


S-RO-0 = Variable address or name 
S-RO-1 = First substring parameter 
S-RO-2 = Second substring parameter 
S-RO-3 = Variable type 
S-R1-0 = Array element number 
S-Ri-1 = Maximum string length 
S-R1-3 = Subscript count 
STORE Takes information placed in statement scratch and uses 


it to store a value from the top of the math stack into 
a variable. It will create the variable if necessary. 


ADDRSS Very low level routine that scans a variable chain to 


find the address of a variable. Alternative entry 
point is ADRS40. 
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This chapter describes, in five sections: 
1) BASIC keywords involving messages 


2) Details on using the message handling routine to 
generate errors, warnings or system messages. 


3) Insufficient Memory Error. 

4) Conventions for Foreign Language message translation. 

5) Construction of message tables, as found in LEX files. 
Except for two subsections ("BASIC Keywords Involving Messages", 
and “BASIC Error Trapping", below), the discussion in this chapter 
is from the viewpoint of assembly language. The options discussed 
are ones an assembly language routine may select when calling the 


message handling routines. Subsection "BASIC error trapping" 
discusses error trapping at the BASIC language level. 


10.1 BASIC Keywords Involving Messages 


10.1.1 ERRN 


The function ERRN returns the number of the last error or warning 
detected by the computer. Assembly language routines which call 
the message handler determine if ERRN is set or not. 


10.1.2 ERRL 


The function ERRL returns the number of the last line in which an 
error or warning occurred; if it occurred in a non-BASIC program, 
ERRL returns zero. Assembly language routines which call the 
message handler determine if ERRL is set or not. 
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10.1.3 ERRM$ 


The function ERRM$ returns the last error or warning message, as a 
String. ERRM$ is derived from the value of ERRN. 


If ERRN is an error number from a LEX file, and that LEX file is 
removed from the computer, ERRM$ will return the null string (until 
ERRN is again changed); this is because the ERRM$ searches the LEX 
file message table for the message. 


The keystroke [g][ERRM] displays the last error or warning message 
as long as a key is held down. The message is built in the same 
manner as ERRM$. 


10.1.4 MSG$ Function 


The BASIC keyword MSG$ has been implemented in LEX file #82 of the 
User’s Library. Its usage is similar to ERRM$, except that it 
accepts an argument (a decimal message number). E.g., MSG$(255131) 
returns message number 131 from LEX file 255. Its purpose is 
twofold: 


1) Whereas ERRM$ returns the last error or warning message, MSG$ 
returns any standard message from any message table. 


2) Through the use of the pTRANS poll ("translate"), it 
substitutes a foreign language translation of the desired 
message, if a language translator LEX file is present in the 
computer. 


MSG$ allows a BASIC user to build custom messages from any message 
tables. In addition, the translation capability provides a 
powerful tool for BASIC application packs which accept commands in 
any language. An excellent example is the HP-71 Text Editor, a 
BASIC program which stores all its commands and responses, along 
with its help catalog, ina message table. User input (commands 
and responses) are compared to entries in the message table, using 
MSG$, allowing a language translator LEX file to drive the Text 
Editor in any language. 


MSG$ uses the message building utility TBMSG$ in the message 
handler. When constructing message tables, take into consideration 
the use of MSG$ to display each message. More details are provided 
in the sections "Foreign Language Translators", and “Message Table 
Construction”. 
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10.2 Message Handling 


The message handling routine displays any standard message, 
including errors, warnings and system messages. Standard messages 
are found in tables and identified by a four digit hex number -- a 
tuo-digit LEX ID and a two-digit message ID mumber. In _ this 
Chapter, the term “message number" usually refers to the complete 
four-digit constant; "message ID number" refers to the two-digit 
constant identifying the message within the LEX table. 


The mainframe contains one message table. Each external LEX file 
may contain an associated message table. 


The message handler is designed as a utility for any application, 
whether a LEX file used to extend the BASIC library, or a take-over 
subsystem (such as FORTH) with a distinct message style. 


In its most powerful form, the message handling routine can be used 
aS an error or warning utility, performing certain housekeeping 
functions such as: 


-~ updating ERRN and ERRL 

~- checking if ON ERROR is in effect (errors only) 

-- sounding a beep 

-- re-displaying a parse error with the cursor 
positioned at the error 


In its simplest form, the message handling routine can be used to 
build any message from "building block" words. These building 
blocks can be found in any LEX file, including the mainframe (LEX 
#00), the local LEX file, or a different LEX file entirely. 
Through the use of these building blocks, a message may be made to 
look like an error or warning, even if not treated that way by the 
message routines. See the section entitled “Foreign Language 
Translators", for details. 


10.2.1 Message Types 

The message handler allows several options, including message type, 
text insertion, storage of ERRN and ERRL, display delay, checking 
ON ERROR, and beep. 


The four message types: 


1) an error message 
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2) a memory error (“Insufficient Memory") 
3) a warning message 
or 4) a system message (text only). 


The calling routine determines the message type by selecting the 
proper entry point and entry conditions into the handling routine. 
The calling routine is responsible for distinguishing between 
errors and warnings, such as in the case of DEFAULT OFF. 


The distinguishing features of each type are as follows. Entry 
points are discussed in the next subsection. 


10.2.1.1 Effects of Error Messages 


Handling the message as an error has these effects (in this 
order); . 


Sends out a pERROR poll 

If eMEM message, process Memory Error 

Sets ERRN and ERRL if option selected 

If ON ERROR in effect, branch to ONERR 

Displays prefix “ERR:" if option selected 
Disallows text insertion when sending message (*) 
Sounds beep 

If parse error, re-displays input line 


ANAM P WHE 


Because of steps 4, 6 and 7, selecting the error message 
type is most useful for BASIC operating system errors. That 
is, a system such as FORTH may want to avoid those effects. 


*Note: a special entry point allows text insertion in error 
messages, if necessary. See subsection "Entry point 
MFERsp", below. 


10.2.1.2 Effects of Memory Error Messages 


Memory error messages are a subset of error messages, but 
because of their insidious nature (i.e., a MEMERR can occur 
during any low-level utility), they have separate 
processing: 


. Sends out pMEM poll 

Recovers available memory (at least LEEWAY) 
Sets ERRN and ERRL if option selected 

If ON ERROR in effect, branch to ONERR 
Displays prefix "ERR:" if option selected 
Disallows text insertion when sending message 
Sounds beep 


NOON P WMH 
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102.1: 


10.2.1. 


10.2.1. 


See section entitled "Insufficient Memory Error" for more 
details on memory errors. 


3 Effects of Warning Messages 


Handling messages as warnings has these effects (in this 
order): | 


Sends out pWARN poll 

Checks Quiet (flag -1), if selected, exits if set 
If eMEM message, process Memory Error 

Sets ERRN and ERRL if option selected 

Does NOT check ON ERROR! 

Displays prefix "WRN:" if option selected 
Displays msg, with text insertions if appropriate 
Observes display delay, if option selected 

Sounds beep, if option selected 


OANA NP WNP 


4 Effects of System Messages 


The term "system message" refers to any message which is 
displayed without an "ERR:" or ‘“WRN:" prefix, and doesn’t 
branch to ON ERROR. The system message facility allows 
building and displaying messages for the user’s information 
without invoking the housekeeping functions of the error 
routines. A system message may be built to look like an 
error or warning, if desired. To display a system message, 
the message handling routine is used as if a warning were 
being displayed, with the appropriate options selected: 


sends out pWARN poll 

Checks Quiet (flag -1), if selected, exits if set 
If eMEM message, processes Memory Error 

Sets ERRN and ERRL if option selected 

Does NOT check ON ERROR! 

Does NOT display "WRN:" prefix (by definition) 
Displays msg, with text insertions if appropriate 
Observes display delay, if option selected 

Sounds beep, if option selected 


5 Text Insertion 


One option that warnings and system messages have is to insert text 
at certain points in certain messages. Normally, this option is 
not allowed for error messages, as explained in subsection "ERRN 
and ERRL Considerations". | 
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Text insertion points are fixed; only certain messages allow then, 
and these are known by the calling routine. That is, you cannot 
insert text except: at specific points in known messages. See 
section "Message Table Construction" for details on constructing a 
message to allow text insertion. 


Text insertions are in the form of digits or ASCII characters, 
allowing dynamic message building. Consider the case of mainframe 
message number 88, used by TRANSFORM execution. The message in the 
table looks like: 


TFM URN L{6}:{5} 
where {6} and {5} indicate two types of insertion points: 
{6} specifies digits or ASCII as passed by the 
calling routine (with no trailing space). 
{5} specifies insertion of an entire message from 
a LEX table, whose number is passed by the 
calling routine. 


When the TRANSFORM execution routine calls the message handler to 
display this message, it might pass, say, line mumber 145 for the 
first insertion, and message number 0051 (LEX ID #00, message 
number 81 in decimal) for the second insertion. When displayed, 
the message would look like this: 


TEM WRN L145:Invalid Pars 


10.2.1.6 ERRN and ERRL Considerations 


Selecting to update ERRN will simultaneously cause ERRL to be 
updated, if indeed a program is running. This action is determined 
by $13 (CPU status bit 13): $13=1 implies a running program. 


In addition, updating ERRN has an effect on two other functions: 
ERRM$ and the [g]{ERRM] keystroke. Both are constructed from the 
value stored in ERRN (RAM location ERR#, hex address 27FE4. ) 


Any message which specifies text insertion will be reconstructed 
for ERRM$ and (g][ERRM] without text in that position! (It is 
infeasible to store the inserted text for later recall of ERRM$ or 
(g][ERRM].) For this reason, normal processing of error messages 
never allows text insertion; the restriction requires error 
messages to be succinctly contained in the tables (*). When 
deciding whether to select the ERRN storage option, consider the 
effects of missing text insertions. 


*Note: calling the message routines at entry point MFERsp allows 
an error message to employ text insertion, if necessary. See 
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subsection "Entry point MFERsp", below. 


10.2.1.7 Messages During Running Programs 


Any use of the message handling routines -- whether within the 
BASIC operating system or not -- must consider the effects of $13 
(CPU status bit 13). $13=1 implies a running program, and will 


have the following effects: 


For errors (including MEMERR): 

-- CURRL and PCADDR will be updated (if the running 
program is not BASIC, CURRL is set to zero). 

-- If ERRN update is selected, ERRL will be updated. 

-- ON ERROR will be checked. 

-- If "ERR: prefix is selected, "ERR L<#>:" will be 
displayed, with the line number (if the running 
program is not BASIC, "ERR~~" is displayed). 

~- The execution pointer (D0) is left at a @ token, 
or at the line number. 


For warnings and system messages: 
~- CURRL and PCADDR will be updated (if the running 
program is not BASIC, CURRL is set to zero). 
-- If ERRN update is selected, ERRL will be updated. 
-- If "WRN:" prefix is selected, "URN L<#>:" will be 


displayed, with the line number (if the running 
program is not BASIC, “WRN~~" is displayed). 


10.2.2 Error Message Handling 


The main processing routine for error messages is MFERR*®. Any 
message processed by this entry point will sound a beep. 


10.2.2.1 Entry Points 
MFERR* -- This is the main error handler, a subroutine which 
processes errors, then returns. MFERR* requires 
entry with the entire message number (LEX ID and 
message ID) specified. MFERR* is the preferred 
routine to use for a non-BASIC system, say, which 
wants to regain control after the message is 
displayed. MFERR* should be called as a subroutine. 
MFERR -- (“Mainframe Error") always sets LEX ID=00, specifying 
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10.2.2.2 


BSERR -- 


MEMER* -- 


MEMERR -- 


MEMERX -- 


a message in the mainframe table. Exits to BASIC 
main loop. MFERR should be called with a GOVING (not 
a subroutine). 


("BASIC System Error") allows entry with the LEX ID 
of the message number specified. BSERR can be called 
for a mainframe error, of course, if LEX ID=00 is 
specified. This entry point is used to process most 
BASIC errors, since it always exits to the BASIC main 
loop. A non BASIC systen, of course, might want to 
use this entry point if it doesn’ t care that 
processing exits to the main loop (CALC mode, for 
instance, allows errors to go through BSERR, but 
picks up processing through a branch at the main 
loop). BSERR should be called with a GOVLNG (not a 
subroutine). 


This is the main Memory Error handler, a subroutine 
which processes Memory Errors, then returns. MEMER* 
requires entry with the entire message number (LEX ID 
and message ID) specified. Normally eMEM (0018hex) 
is used, but a Memory Error message from any LEX file 
can be specified. MEMER* is the preferred routined 
to use for a non-BASIC system, say which wants to 
regain control after the Memory Error is displayed. 
MEMER* should be called as a subroutine. 


(“Memory Error") sets P=0 which selects certain 
options as explained below, then falls into MEMERX. 
MEMERR should be called with a GOVLNG (not a 
subroutine) . 


Allows any value of P (which determines which options 
are selected), selects the mainframe message 
“Insufficient Memory” (number 0018hex), processes the 
error and exits to the BASIC main loop. MEMERX 
should be called with a GOVLNG (not a subroutine). . 


Entry Conditions for MFERR* 


To display standard error messages, call the message handler 
(MFERR*, MFERR, BSERR or MEMER*) with: 


— ee ee we ee ow 


| P set as follows: 


P= 1xxx 


“This is a Parse error" (i.e., re-display 
input line w/cursor backup) 
NOT ALLOWED for a Memory Error! 
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~~ 


3 


P= x1lxx Do not store error number (Else store ERRN) 


P= xxix Display message only 
(Else display "ERR:" & ERRL) 


BitO of P not used at present. (**) 


C(3-2) = LEX ID# (Hex) in whose table the message 
is found (LEX ID#= 00 for mainframe) 


C(B) = Message ID number (Hex) 


If parse error, then 
Input pointer (D1) points to character in 
input buffer where error occurred. 
INBS points to beginning of input buffer. 
A(A)= addr prompt string for input re- display; 
= 0 if BASIC prompt string desired. 
Else D1, INBS, and A(A) not used. 


BitO of the P register is reserved for future applications, 
as 4 way for the LEX file which generated the error to 
communicate with other LEX files. The meaning of this bit is 
not yet decided. In the meantime, bitO must=0. 


10.2.2.3 Parse Errors 


As described above, a parse error is identified by setting bit3 in 


the 


P register before Calling MFERR*, However, several entry 


points already exist for specific parse errors. They all set the 
necessary registers for entry into the message handler, report the 
error, re-display the line and exit to the BASIC main loop. See 
the chapter entitled "Statement Parse, Decompile and Execution”, 
under the heading “Writing a Parse Routine -- Parse Errors”, for 
details on these entry points. 
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10.2.2.4 Examples 


P= 
Normal BASIC execution error 0 
(Store ERRN & ERRL; display “ERR L<#>:") 
Normal BASIC Parse error | 8 


(Re-display input line, store ERRN, 
display "ERR:") 
------ A(A)=0 
------ Di=error location within 
input buffer 


External system (Text Editor, FORTH 14 
interpreter, etc.) Parse error 
(Don’t store ERRN; display message text 
only; use given prompt string) 
~----- A(A)= prompt string address 
------ Di=error location within 
input buffer 


10.2.2.5 Entry Point MFERsp 


In spite of the inability of text insertion to be reconstructed for 
ERRM$, it has been determined that several applications desire to 
display error messages with text insertion. Calling a_ special 
entry point in the MFERR* routine will allow this. This entry 
point, MFERsp, occurs after the pERROR poll of MFERR*, so some 
processing must be performed before calling MFERsp. This routine, 
like MFERR*, is a subroutine; processing does not jump to the BASIC 
main loop. 


Entry conditions for messages using text insertion are given below, 
in condition (3) under "Entry Conditions for MFWRN”. Instead of 
the P register being used for options, C(S) 1s used. Otherwise, 
entry conditions for MFERsp are as specified for MFERR*. 


Calling MFERsp must be done in the following manner: 


<set R2 according to text insertion options> 
<set C(14-13) according to text insert options» 
<set C(S) bits according to MFERR* options> 
<set C(3-0)=message number> 


RO=C Store options, msg# in RO 
SETHEX 

GOSBVL =POLL pERROR poll. 

CON(2) =pERROR 

CPEX 15 In case poll error, options. 
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P= 12 P value for "error". 
LCHEX OOF In case poll error... 
GOC LABEL1 CRY=poll error. 
2XM=0 Poll handled? 
GOYES LABEL3 Yes! Abort message. 
C=RO 
LCHEX F C(12)=F for “error” flag. 
LABEL1 GOSBVL =MFERsp 
LABEL3 P= 0 (if necessary from ?XM=0 
ern jump, above....) 


10.2.3. Warning Message Handling 
The entry points for Warnings are MFWURN or MFWRNQ. 


Most warnings are to be suppressed if the Quiet option (flag -1) is 
set. The entry point for these messages is MFURNQ ; entry 
conditions are the same as for MFURN, but accheck is first 
performed on the Quiet option (the Quiet check is performed after 
PWARN poll). If Quiet is set, processing returns to the calling 
routine immediately. 


The two warning handler entry points are always called as 
subroutines; warnings, since they do not halt processing, return to 
the calling routine. 


The warning handler provides much the same options as_ the Error 
handler. Two notable exceptions are these: 

-- warnings never branch to ON ERROR 

-- warnings allow text insertion in designated messages. 


10.2.3.1 Entry Conditions for MFWRN 


To display standard messages, call the MFURN (or MFWRNQ) routine 
with: 


1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


P set as follows: 
P= 1xxx Sound Beep. 


"~ 
" 


x¥1xx Do not store warning number (Else store ERRN} 


P 


XK1xX Display message only 
(Else display "URN:" & ERRL) 


P= xxxl Display message without observing DELAY. 
(See "MFWRN DELAY Option", below) 
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C(14): 
C(13): 


a ae oe 


x001 
x010 
x011 


X100 
¥101 
%110 
x111 


ling 


is found 


(LEX ID#= 00 for mainframe) 


2 
| C(3-2) = LEX ID# (Hex) in whose table the message 
| 
| 


= Message ID number (Hex) 


If desired message has text insertion points: 
R2 register: source of text insertion. 


type of insertion. 
how many characters in insertion. 


= actual output characters if C(14)= 1xxx 
address of output characters if C(14)= Oxxx 
additionally, if C(14)= 0000, upper byte 


of R2 contains control nibbles. 


use contents of R2 register as output 
use address in R2 register to find output 


Output is already in ASCII form 


Digit output (digits can be Hex or Dec): 
Digit output-- replace leading 0’s with blanks 
Digit output-- don’t suppress leading 0’s 
Digit output-- suppress leading 0’s 


Hex-to-Dec conversions always generate 


decimal numbers with 7 digits: 


Hex- to-Dec: 
Hex- to-Dec: 
Hex-to-Dec: 
Hex- to-Dec: 


suppress up to 3 leading 0’s 
suppress up to 4 leading 0’s 
suppress up to 5 leading 0’s 
suppress up to 6 leading 0’s 


For C(14)= 1000 ("ASCII output is in R2") 


C(13)= nibbles-1 to be output. Hence the 
nibs MUST be even!!; C(13) odd. E.g., 
if 5 chars for output, C(13)=9. 


For C(14)= x0xx (hex or dec digit output) 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


10.2.3.2 MFWRN DELAY Option 


C(13)= digits-1 to be output, hence 
no more than 16. 


For C(14)= xlxx (hex-to-dec conversion) 
C(13)= digits-1 in number to be converted 
Max hex value for conversion is FFFFF 
(1048575 dec), hence C(13) must be 4 
or less. 


For C(14)= 0000 ("ASCII output from DATi") 
C(13)= 0: no output 

1: Send out specified number of 
Character; R2(15-14)= chars-1. 

2: Send out chars until ASCII termin- 
ator is found. ASCII terminator 
is passed in R2(15-14) (usually 
an FF terminator, but any byte 
value can be used}. 


Warning messages (and system message, which use the same entry 
point) have the option of observing DELAY. Most warnings observe 
DELAY, so that the message remains in the display for the 
user-specified delay time before execution resumes. 


Selecting to observe DELAY means that the HP-71 will leave the 
message in the display until 1) the DELAY time expires, or 2) a key 
is pressed, whichever occurs first. Program execution halts~ 
(processing remains in a display utility which counts down the 
delay time), although this is transparent to the user; program 
execution resumes when the delay time expires. 


Selecting to not observe DELAY means that the HP-71 continues 
execution immediately; the assembly language routines have control 
over how long the message remains in the display. For instance, 
the card reader system messages (such as "Pull Card") do not 
observe the DELAY setting. The card reader routine continues 
processing immediately; if the user starts pulling the card, the 
card reader routine will be able to detect it. 


10.2.3.3 Multiple Text Insertions 
Zero, one or two text insertions in any one message (including its 
building blocks) are allowed. If a message calls for zero 


insertions, R2 is not used by the message building routines. If 
one text insertion is used, as much of R2 as desired can be used to 
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pass the number, characters or address (as appropriate); upper C 
indicates how much of R2 to use for the insertion. 


When two text insertions are used ina message, the following must 
be observed: 
-- The two text insertions must be of the same type (i.e., the 
codes in C(14-13) are used for both). 
~- R2(A) must contain the entire mumber, characters or address 
(as appropriate) for the first insertion. 
-- R2(9-5) must contain the entire mumber, characters or 
address (as appropriate) for the second insertion. 


10.2.3.4 Indirect Message Calling 


A special type of text insertion is that of an entire message. 

This is different from a building block in that the calling routine 
passes the message mumber (four digit hex, including LEX ID and 
message ID) in R2, as it would pass any other text insertion. 
However, whereas other types of insertions allow the option of 
using R2 to point to the insertion, R2 must contain the NUMBER of 
the desired message (in R2(A) or R2(9-5), or both, as appropriate), 

not a pointer to the number. 


For an indirect message call, C(14-13) must be nonzero. The value 
in these two nibbles is unimportant, unless a second text insertion 
requires a meaningful nonzero value; in this case, using that value 
is sufficient (see entry conditions, above). 


10.2.4 System Messages 


The term “system message” refers to any message which selects the 
following options: 

1) displays message text only (no “WRN:" or "ERR:" prefix) 

2) does not branch to ON ERROR. 
This implies that a system message must enter through the MFURN or 
MFURNQ entry points (depending on whether it wants to observe the 
Quiet option, flag -1). In addition, a system message may elect to 
store ERRN (and ERRL), to sound the beeper, or to display the 
message without delay setting. 


10.2.4.1 Entry Conditions for System Messages 


Entering MFWRN or MFURNQ with P set to the appropriate value will 
display system messages. For example: 


Pe 1110 (=14) 
1 Beep. 
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1 Do not store msg number as ERRN (or ERRL, either). 
1 Display message text only. 
0 Observe display delay. 
or, 
P= 0111 (#7) 
0 No beep. 
1 Do not store msg number as ERRN (or ERRL, either). 
1 Display message text only. 
1 Do not observe display delay. 
The options and codes regarding text insertion are as specified 
above in “Warning Message Handling’. Processing returns to the 
calling routine after system messages are displayed (MFWRN and 
MFURNQ are called as subroutines). 
10.2.4.2 Adding Prefixes to System Messages 
System messages can be made to look like errors or warnings by 


displaying the appropriate prefix ("ERR:" or "WRN:") as part of the 
message. 


For example, message number 88 in the mainframe looks like this in 
the table: 
TFM WRN L{6}:{5} 

where {6} and {5} indicate two types of insertion points (see 
subsection "Text insertion", above). The message is displayed by 
TRANSFORM execution by calling MFURNQ with the option to suppress 
the standard warning prefix, "“WRN:' Thus, the message itself 
contains the URN prefix, and looks similar to "other warnings. 


The same thing can be done by a subsystem which wants to generate 
its own error prefix -- “Error:' , for example -- for the messages 
in its table. Each message in the table might include this 
“prefix” as part of its text. Then, by displaying them as system 
messages, they will look like other errors. (Multiple occurrences 
of this “prefix" can be handled efficiently by building blocks. 
See section "Message Table Construction" for details on building 
blocks. ) 


A foreign language message translator could use this feature to 
substitute a foreign prefix when intercepting the pMEM, pERROR or 
pWARN polls. For instance, a Spanish translator might Suppress the 
Standard "WRN:" prefix, and include as part of each warning the 
prefix "CDO:" (for ’cuidado’). Again, a building block in each 
message would make this easy. 


Be aware that the ideas presented here are feasible with the 
message handler options. However, there are some problems to be 
overcome by the poll handlers which make implementation slightly 
more difficult than it may seem. Namely: 
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1) The new prefix should have the option of including a line 


number for a running program. E.g., using the example from 
above, 

Cbo: for a keyboard warning 

CDO L<#>: for a warning from a running program 


This could be effected by the poll handler which builds the 


appropriate text for a type {6} insertion before calling 
MFWRN . 


If making a system message look like an error, remember that 
ON ERROR is not checked for system messages. In this case, 
ON ERROR should be checked locally in the poll handler, with 
a subroutine as follows: 


DO=(5) =ERRSUB Check if error in ON ERROR GOSUB... 


C=DATO A 

2C#0 OA Error in ON ERROR GOSUB... ? 
RINYES Yes. Report error. 

DO=D0+ 5 Check if ON ERROR in effect. 
C=DATO A 

2C=0) OA ON ERROR in effect? 

RINYES No. Report error. 

RTNCC Yes. Don’t report error. 


If ON ERROR is in effect, it would probably be best to call 
MFERR* and let it jump to ON ERROR, since it also sets ERRN 
and does other housekeeping. 
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10.3 Insufficient Memory Error 


NOTE: The message handling routine checks ALL messages (error, 
warning and system) for the eMEM constant (value 0018 hex, or 24 
decimal). If the message number is eMEM, an “Insufficient 
Memory" error is automatically generated. This is explained 
below. If for any reason an assembly language routine wants to 
generate "Insufficient Memory” as a NON-error message, it must 
be set up as a separate message in a LEX file. 


10.3.1 Reporting MEMERR 


An "Insufficient Memory” error can be generated during execution of 
any routine which uses available memory, which is to say, during 
execution of almost any statement or command. Any routine which 
uses available memory (either claiming it for "permanent" storage 
or for use as a temporary buffer) must ensure that AVMEMS 
(Available Memory Start) and AVMEME (Available Memory End) are not 
exceeded. In addition, a routine which claims "permanent" memory 
MUST insure that the LEEWAY (available memory safety factor) is not 
violated. For rules involving correct memory management, see the 
“Memory Structure” chapter, under the section “Available Memory 
Management." 


If for some reason LEEWAY has been violated (permanent memory 
allocation has left less than LEEWAY available), the computer will 
enter an infinite loop when it finds there is not enough room to 
build the “Insufficient Memory" message. 


If RAM usage reaches AVMEMS or AVMEME, an “Insufficient Memory” 
error should be generated in one of. two ways: 


1) Jump directly to MEMERR (BASIC system), or the subroutine 
MEMER*® (non-BASIC system). 


2) If found in a low-level utility, the convention is to return 
with carry set for ANY error, with C(3-0)=error number. The 
calling routine is responsible for checking carry and 
jumping to BSERR for any error. 


A Memory Error is an insidious condition; it can crop up at the 
point, say, when a routine is trying to report a less severe error. 
In fact, the message routine itself requires available memory to 
build a message, which might easily cause any message to be 
converted into a Memory Error. Some of the problems which require 
special handling for MEMERR are: 
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-- Some low level routines exit with carry set to indicate an 
error, with C(3-0)= error number. A MEMERR is treated 
like any other error in these instances, and it might pass 
right through to the standard error entry point BSERR. At 
this point, the message handler must intercept all 
MEMERRsS, to make sure they are handled properly. 

-- A MEMERR may occur several levels deep ina low-level 
utility; returning to the caller may be infeasible because 
execution was not completed (this is what would happen if 
the message handler ran out of building space). 

-- A LEX file may need to be alerted immediately that an 
operation failed, so that it can recover without 
corrupting memory (such as encountering MEMERR halfway 
through a file manipulation). 


A Memory Error should never be generated while handling a slow 
poll, if the poll is intended to continue. Since available memory 
is recovered, the crucial poll storage area is lost. Calling the 
entry point MEMERR is permissible, Since it exits to the BASIC main 
loop (thereby aborting the poll). 


As a precaution to fast poll handlers, generating a Memory Error 
may exceed the subroutine stack limit, since a pMEM poll is issued. 
Therefore, it is inadvisable to generate a Memory Error while 
handling a fast poll, if the poll is intended to contime. 


10.3.1.1 Calling MEMER* 


MEMER* is a subroutine which processes Memory Errors. It requires 
the calling routine to load a message constant into C(3-0). 
Normally eMEM (0018 hex) is used, but a message constant from any 
LEX file can be used. This would allow a subsystem to report, say, 
“Out of Scratch Area", process the Memory Error in the standard 
manner, then recover control after the message. 


For LEX files operating within the BASIC system (including foreign 
language files), a Memory Error could be generated by calling 
MEMER* with the desired message constant. But the preferred way is 
to call MEMERR (i.e., use the mainframe eMEM constant), intercept 
the pMEM poll and substitute the alternate message constant at that 
time. 


A subsystem which generates its own Memory Error message may desire 
to construct one with text insertion, (such as “Urite 
Limit:<filename>"). The appropriate way to do this is to set up 
the text insertion in R2, call MEMER* (a subroutine) with the 
appropriate message number, and adjust C(14-13) as text insertion 
controls during the pMEM poll handling. Text insertion is 
degcribed completely under "Warning Message Handling." 
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See subsection “Error Message Handling" for details on calling 
MEMER* . 


10.3.2 MEMERR Handling 


A Memory Error (“Insufficient Memory") allows the same options as 
any other error (store ERRN & ERRL, display message text only). 
However, a Memory Error should never be called as a parse error. 
For details of these options when calling MEMERR (or MEMER*) see 
subsections "Message Handling Options” , and “Error Message 
Handling", above. 


To prevent the message handler from running out of memory (a 
building area for the message) dur ing a MEMERR and thus causing an 
infinite loop, available memory is first recovered, using routines 
COLLAP and CLCOLL. COLLAP sets the pointer in AVMEME to the value 
of the pointer in FORSTK (recovers AvMemEnd), and CLCOLL sets the 
pointers in AVMEMS, OUTBS and SYSEN to. the value of the pointer in 
CLCSTK (recovers AvMemSt) . 


This frees an area of memory at least as large as LEEWAY (212 
nibbles). Correct memory management is imperative (as it always 
is) because at this point if LEEWAY is not available, someone has 
really screwed up! Guaranteeing an area of RAM at least as large 
as LEEWAY means that any “Insufficient Memory" message (whether 
re-worded or translated into a foreign language) cannot exceed 106 
characters (including prefix), or about 80 characters (excluding a 
long prefix). However, no one should ever consider any message 
longer than 30 characters anyway. 


10.3.2.1 MEMERR Poll 


A separate poll is sent out when a Memory Error is encountered. Be 
aware that if a Memory Error enters through BSERR (that is, a 
routine calls BSERR with eMEM constant), two polls will be issued 
-- one for pERROR, and then when the eMEM constant is intercepted, 
another one for DMEM, The same would happen if eMEM were issued as 
a warning -- first PWARN, then pMEM. 


The main purposes of the pMEM poll are: 

-- To allow the poll handler to substitute another message 
constant for eMEM. If this is done, the message will 
Still be handled as a memory error. 

-~ To allow the poll handler to load its own return address to 
capture processing after the memory error is reported. 
(For instance, if the FORTH system calls a mainframe 
utility which in turn generates a MEMERR, FORTH can 
recover control after the message is displayed.) If this 
is not done, then processing returns to the BASIC main 
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loop. 

-- To allow a LEX file to clean up pending operations which 
might have been interrupted by the Memory Error. 

-- To allow a LEX file to generate a custom Memory Error 
message with text insertion, by adjusting the values in 
C(14-13). 
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10.4 Foreign Language Translators 


A Foreign Language Translator is a LEX file whose sole purpose is 
to translate HP-71 messages from the resident English to a foreign 
language. It is a simple LEX file which contains nothing but a 
message table and a poll handler which intercepts the pMEM, pERROR, 
pWARN and pIRANS polls to substitute alternate message numbers. 


10.4.1 BASIC Error Trapping 


Using ON ERROR in a BASIC program allows error trapping for 
applications. In the message handler, the sequence of steps when 
processing an error is: 


1) send out pERROR poll 
2) set ERRN (and ERRL) 
3) jump to ON ERROR if in effect 


A language translator will intercept the pERROR poll and substitute 
an alternate message number before the ON ERROR jump. Thus, a 
check of ERRN in the ON ERROR routine must allow for foreign 
language message numbers. 


The following convention has been set up to facilitate error 
trapping with language translators. 
For mainframe messages: 
translated message number= ERRN+1000 


For other LEX files: 
translated message number= ERRN+128 


For example, mainframe error 57 is “File Not Found". If an 
ON ERROR routine is trapping for this error and must allow for 
foreign language messages, the appropriate statement is: 

IF ERRN=57 OR ERRN=1057 THEN .... 
The HPIL error 255031 is "Directory Full". If an ON ERROR routine 
is trapping for this error and must allow for foreign language 
messages, the appropriate statement is: 

IF ERRN=255031 OR ERRN=255159 THEN .... 


This extended error trapping can be shortened with the user-defined 
function: 
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10 DEF FNE(X)= (X=ERRN) OR (X=ERRN+128+(X<1000)*872) 
and the two examples above can be compressed to 


IF FNE(57) THEN ... 
IF FNE(255031) THEN ... 


The following subsections describe how this convention is 
implemented. 


10.4.2 LEX File Number Sharing 


The LEX ID of a language translator is based on the ID of the LEX 
file whose messages are to be translated. All language translator 
LEX files which have the same LEX ID will share the same numbering 
scheme. That is, related language translators will share the SAME 
four-digit (hexadecimal) message numbers, including LEX ID number 
and message ID mumber. This implies that only one language 
translator will be active in the computer at one time (the first 
one in the file search order). 


Language translator LEX files should not, in general, have any 
extended BASIC statements or functions, decompile or execution 
routines, since the proliferation of similar LEX numbers would be 
confusing for a user trying to determine their source. 


10.4.2.1 LEX File #00 (Mainframe) Translation 


A Foreign Language Translator for LEX file #00 (mainframe) 
messages will have LEX #01. Its message table will contain a 
one-to-one correspondence between mainframe messages and the 
translated messages. This means that each message in LEX file 
#01 will have the same meaning as the correspondingly numbered 
message in the mainframe. 


For example, message mumber 0039 hex (57 decimal, as expressed 
by ERRN) in the mainframe is "File Not Found". The 
corresponding message 0139 (1057 as expressed by ERRN) in LEX 
file #01 must be the foreign language equivalent of "File Not 
Found". 


This one-to-one correspondence of mainframe messages applies to 
message 1 through 97, and message 229. Message #229 is "(trk 
### of ##8)", and is referenced by the card reader execution 
routines; it must also have a translated equivalent. 


The building blocks in the mainframe table numbered 230 through 
248 are simply frequently-used words. They are NOT messages, 
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per se, since they are never referenced as message constants by 
a@ routine calling the message handler. Because of this, a 
language translator need not contain the same building blocks; 
even if it does, it need not number them the same. In addition, 
the language translator may use any building blocks it desires 
to construct messages, and may number them in any manner that 
does not conflict with messages 0 through 97 and 229. Building 
blocks used for this purpose are simply means of saving ROM, and 
are not subject to the one-to-one correspondence. 


Note that the mainframe contains a partial LEX file {all but a 
file header) mumbered 01. This partial LEX file does not 
contain a message table; therefore, no conflict will arise 
because of this convention. 


10.4.2.2 Other LEX File Translation 


For LEX files other than #00 (mainframe), a language translator 
will have the same LEX number, and its message table will be 
offset by 128 decimal from the master LEX file table. There 
will be a one-to-one correspondence between the messages in the 
tuo tables, with message number n_ in the master table being 
equivalent to message number n+128 in the translated table. 
(It has been determined that it is unlikely that any LEX file 
will need more than 127 messages, allowing message ID numbers 
128 through 255 to be reserved for the translators. **) 


For example, the HPIL ROM has LEX ID=FF (255 decimal). The HPIL 
message number FF1F (255031 in decimal, as expressed by ERRN) is 
“Directory Full”. A language translator for HPIL messages would 
also have LEX ID=FF, and the corresponding message FF9F (255159 
as expressed by ERRN) would be the foreign language equivalent 
to "Directory Full." | 


Building blocks used solely to save ROM (those never referenced 
as messages by routines calling the message handler) are not 
“true” messages; they need not have a one-to-one correspondence 
with building blocks in the translator. Such building blocks 
need not be duplicated in the translator LEX file, and if they 
are, they may be numbered in any manner which does not conflict 
with the numbering of the "true" messages in that LEX file. 


** NOTE: The split in the message tables into blocks of size 128 
requires that the master LEX file be restricted to messages 1 
through 127, and the translator be restricted to messages 128 
through 255. Message number 00 (the LEX file name -- see 
subsection "Message Construction”, below) is used by the message 
handler as a prefix for errors and warnings; if the master LEX file 
includes it, then the translator file should include it, too 


10-23 





HP-71 Software IDS - Detailed Design Description 
Message Handling 


(perhaps ina translated form). That is, EVERY message table 
(including language translators) should have a message 00, unless 
they do not want a prefix for errors and warnings. 


If a LEX file requires more than 127 messages, and its author knows 
for certain that it will never be subject to language translation, 

it canuse the full range of messages from 0 to 255, Using 
messages in the range 128-255 will prevent the use of standard 
message translation and error trapping for future applications. 


If a LEX file requires more than 127 messages and its author wants 
to preserve the capability of standard error trapping with language 
translation, use of a second LEX ID mumber is necessary; using a 
second LEX table will provide 127 more messages. 


For details on message range and mumbering, see section "Message 
Table Construction", under "Message Range”. 


(Ihis restriction to blocks of 128 does not apply to LEX file #01, 
the translator for the mainframe. This is described in the 
previous subsection. } 


10.4.2.3 HPIL Message Range 


Because of a bug in the first version of the HPIL ROM, any 
translator for this ROM will have to reside in RAM in order. to be 
implemented. The message range was inadvertently left as 00- 200; 
this means that when the message handler goes to look for nessage 
255159, say, it will search this ROM’s table, since the range 
covers this message. In order for a translator. to be implemented, 
1t must occur before the HPIL ROM in the file search order, so that 
its message table will be found first. The easiest way to do this 
ls for the user to copy the HPIL translator into RAM so that it 
Will be found first. 


10.4.3 Poll Handlers for Translators 


Besides the VER$ poll, a language translator requires a poll 
handler to intercept pMEM, pERROR, pWARN and pIRANS polls. Upon 
intercepting these polls, an alternate message number is 
substituted for the original, providing the message came from the 
translator’s master table. That is, a translator only translates 
messages from one specific LEX file. 


Poll handlers for pMEM, pERROR and pUARN should not set XM=0 (i.e., 
do not indicate “handled"), since this causes the message to be 
suppressed. Poll handlers for pIRANS should set XM=0 to indicate 
that message number has been adjusted to generate a_ translated 
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message. 
The algorithm is described for the two classes of translators: 


10.4.3.1 Poll Handler for LEX ID #01 


#01. The poll handler for pMEM, pERROR, pWARN and pTRANS polls 
should perform the following: 


1) Fetch message number from RO. 
2) If LEX ID of message is not 00, then go to 5). 
Else, set LEX ID of message =01 and replace 
message number in RO. 
3) If pTRANS poll, exit with carry clear, XM=0. 
4) If message ID number is not 88, then go to 5). 
Else, a separate (nested) poll is required to 
translate the insertion message (message #88 
is “TFM WRN L<#>: <insertion message>"): 


3a) Shift number of insertion message to R2(A). 
Swap RO and R2. Poll with pTRANS constant. 

3b) When returned from nested poll, swap RO and 
R2. Shift message number to R2(8-5). 


5) Return from poll (carry Clear, XM=1). 


An example in the “HP-71 Code Examples" chapter, “Foreign Language 
Translation of Messages", demonstrates the assembly language 


Translators for the mainframe messages (LEX ID #00) have LEX ID 
necessary to implement this. 


10.4.3.2 Poll Handler for Other LEX Files 


Translators for other LEX files (LEX ID’s above 00) have the same 
number as the master LEX file. The poll handler for pMEM, pERROR, 
PWARN and pIRANS should perform the following: 


1) Fetch message number from RO. 

2) If the message number does not have the right LEX ID, 
go to 5). 

Else, add 128 to the message number, replace in RO. 

3) If pTRANS poll, exit with carry clear, XM=0. 

4) If the message allows type {5} insertion (see section 
entitled “Message Table Construction"), a separate 
nested poll is required to translate the insertion 
message. 

5) Return from poll (carry clear, XM=1). 


An example in the "“HP-71 Code Examples" chapter, under "Foreign 
Language Translation of Messages", demonstrates the assembly 
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language necessary to implement this. 


10.4.4 Two Types of Language Translators 


An HP-71 design team has come up with two types of language 
translators: one-shot translators, and selectable translators. 


One-shot translators provide a fixed translation capability, in one 
language only. Selectable translators allow the user to select the 
language (including English -- "no translation"). 


10.4.4.1 One-shot Translator 


A one-shot language translator is a LEX file which, as long as it 
is present in the computer, ALUAYS translates messages. Such a LEX 
file serves only one language, would most likely be RAM based, and 
would probably be available on a card. Several one-shot 
translators might be in memory, one each for the mainframe, HPIL, 
the MATH ROM, etc. 


It’s possible that one-shot translators for several different 
languages might reside in memory at the same time (e.g., Spanish, 
German, French, etc.). In this case, the one that occurs first in 
the file search order will be the one which is ineffect. To 
switch languages, the file chain must be manipulated by the user 
(with COPY, PURGE, etc.), so that the new language translator is 
"selected" by being first in the file search order. 


On the other hand, as long as a one-shot translator resides in 
memory, the resident English language messages cannot be accessed. 
Only by purging all such translators can the user regain English 
messages. 


Examples of two one-shot translators (one for the mainframe, one 
for HPIL) are in the “HP-71 Code Examples" chapter, under "Foreign 
Language Translation of Messages.” 


10.4.4.2 Selectable Translator 


A selectable language translator consists of a "controlling" LEX 
file, and additional “satellite” LEX files which contain message 
tables for several different languages. The controlling LEX file 
provides a keyword to select which language to implement (including 
the resident English). Such a scheme may be implemented in a ROM, 
and distributed either separately as a “Translator ROM for Spanish, 
German, French, ...", or as an integral part of an application pack 
(such as the Text Editor). 
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(The selecting keyword and the selecting syntax have not been 
decided upon. ) 


The selectable translator scheme offers several advantages over 
one-shot translators: 
1) It allows selecting a particular language for all messages, 
or suppressing translation entirely. 
2) The equivalent collection of one-shot translators would 
increase the number of LEX files many times over, which 
would make the the HP-71’s processing relatively slower. 


The collection of LEX files for a selectable translator would look 
like this: 


Controlling LEX file 
-- contains selecting keyword. 
-- contains VER$ poll handler for the entire entourage. 
-- contains code for implementing the language selection. 


First satellite LEX file 

-~ services mainframe message translation. 

-- contains pMEM, pERROR, pWARN and pIRANS poll handlers. 

~~ contains truncated LEX file and table for mainframe 
Spanish translation. 

-- contains truncated LEX file and table for mainframe 
German translation. 

-- contains truncated LEX file and table for mainframe 
French translation. 

-- etc. (other languages) 


Second satellite LEX file 
-- services HPIL translation (for example). 
-- contains pMEM, pERROR, pWARN and pTRANS poll handlers. 
-- contains truncated LEX file and table for HPIL 
Spanish translation. 
-- etc. (other languages) 


Third satellite LEX file 
-- services MATH ROM translation (for example). 
-- contains pMEM, pERROR, pWARN and pTRANS poll handlers. 
-~ etc. (truncated LEX files and tables) 


. AS many satellite LEX files as desired. 


The term “truncated LEX file" refers to a file which looks 
identical to a LEX file, except that the file header is omitted. 
That is, the following fields are left out: 

File Name 

File Type 

Flags 

Time 
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Date 
File Length (offset to next file) 
The file, then, starts at the Id field. Each truncated LEX file 


would be identical to a one-shot translator, except for the missing 
header. 


The controlling LEX file has some important housekeeping to 
perform: 
1) When a_ language is selected, it must open a system buffer 
(if it doesn’t already exist) to store the language name (or 
a code). This system buffer has ID# "bTRANS". 


2) It must go into the LEX system buffer and adjust the 
addresses of each of the satellite LEX files so that they 
point to the truncated header of the appropriate languages. 


3) At the time of each configuration (pCONFG poll), step 2 must 


be repeated, using the stored language in the system buffer 
for reference. 


An example of a selectable translator can be found in the "HP-71 
Code Examples" chapter, under "Foreign Language Message 
Translation." 
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10.5 Message Table Construction 


A Message Table contains a list of standard messages; standard 
messages are those messages which can be displayed by the message 
handling routines. The table may include error messages, warnings 
and system messages. One message table serves the mainframe, but 
each LEX table may have an associated message table to support the 
parse and execute routines for its keywords. 


Messages are identified within a LEX file table by a two-digit hex 
number. Message number 00 is reserved to be the LEX file name; it 
is used in the prefix of a message to identify the source of the 
message. For instance, the HPIL ROM (LEX ID=FF), has message 
number 00 (and its LEX file name) “HPIL ", so that any error 
generated by this LEX file will display "“HPIL ERR:". If a LEX file 
does not desire a name on the error prefix, it can leave message 00 
out of the tables entirely. 


10.5.1 Message Formats 


It is recommended that standard messages be kept short, since more 
than 22 characters in the display will cause scrolling. Scrolling 
is especially undesirable for an error message. 


10.5.2 Message Prefix 


The standard error message prefix for mainframe messages is "“ERR:"; 
for warnings, the prefix is "URN:". This leaves 18 characters for 
the message before scrolling starts. For a run-time error, the 
Standard message prefix is “ERR Llll:", where 111 is the line 
mumber (1 to 4 digits). This leaves (16-i) characters, where i 
is the number of digits in the line number. 


Most LEX files will provide an LEX file name to identify a message, 
such as "HPIL ERR:". Thus, for a LEX file error, scrolling starts 
at (18-k) characters for a parse or keyboard execution error, and 
at (16-i-k) characters for run-time errors, where k is the number 
of characters in the LEX file name, and i is the number of digits 
in the line number. 


10.5.3 Message Construction 
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10.5.3.1 Message Range 


The first entry in a message table is the listed range of messages 
found in the table. The first byte of the range is the lowest 
numbered message; the second byte is the highest numbered message. 


When the message handler searches the LEX files for a message, it 
will not find the specified message unless its number is within the 
listed range of the table. A message table can contain messages 
outside the listed range; they can be used as local building 
blocks, but will not be found by the message handler. Such 
messages cannot be generated as errors or warnings by assembly 
language routines, and they can’t be accessed by MSCG$. 


Message number 00 is taken to be the LEX file name (for error 
displaying purposes). Even if a LEX file has message numbers from 
6F to E3, for instance, it may include a message number 00 for its 
LEX file name; message number 00 need not be included in the listed 
range. Even if message 00 is not included in the listed range, it 
will be found and used for the error prefix. However, not 
including it in the listed range will prevent its access by the 
MSG$ function. For a specific application of this feature, see 
section entitled “Foreign Language Translators.” 


The ability to fragment LEX files (have different files with the 
same LEX ID#, but different message ranges) requires some 
coordination. Although each of the fragments would include the 
same message 00 (if they want an error prefix), one of the LEX 
files will need to include message 00 in its range. This would 
reasonably be done by the fragment with the lowest range. Again, 
this is suggested so that MSG$ can access message 00 in the LEX 
file. 


The function MSG$ (in LEX file #82) should be able to access all 
“true” messages ("true” messages are those which are referenced as 
errors or warnings, and do not include local building blocks). 


Foreign language translation puts restrictions upon the numbering 
of messages in LEX files with ID# greater than 01. See section 
"Foreign Language Translators" for details. 


Message range 

--- The master LEX file message range (as listed in the range 
field of the table) must be within the interval 00-127 
decimal. 


-- The translator LEX file message range (as listed in the 
range field of the table) must be within the interval 
128-255 decimal. 
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message number 00 
-- To be used by BOTH master and translator (if a prefix for 
errors and warnings is desired) or to be used by NEITHER (if 
no prefix desired). 


messages numbered 01 through 127 
-- The master LEX file’s true messages (those referenced by 
routines calling the message handler) MUST be in this range. 
Any other numbers in this range can be used as building 
blocks by the master LEX file (such building blocks can be 
accessed by MSG$). 


-- The translator file can use local building blocks in this 
range, providing that they are NOT included in its listed 
range! (Such building blocks cannot be accessed by MSG$.) 
These building blocks can only be referenced by other 
messages in the same table. 


message number 128 
~- For a language translator, this message MUST be identical to 
message 00 in the same table {easy to do with a building 
block). The reason is that, for example, MSG$(125000), 
because of the pIRANS poll, will fetch message 125128. (If 
message 00 is not used, message 128 need not be in the table 
either.) 


-- The master LEX file can use message 128 as a local building 
block, providing that it is NOT included in the message 
range! (This message will not be accessed by MSG$.) It can 
only be referenced by other messages in the same table. 


messages numbered 129 through 255 
~- The translator LEX file’s true messages (those referenced by 
routines calling the message handler) MUST be in this range. 
Any other numbers in this range can be used as building 
blocks by the translator LEX file (such building blocks can 
be accessed by MSG$). 


-- The master LEX file can use local building blocks in this 
range, providing that they are NOT included in its message 
range! (Such building blocks cannot be accessed by MSG$. ) 
These building blocks can only be referenced by other 
messages in the same table. 


10.5.3.2 Message Blocks 


The term "message block" refers to a complete message entry ina 
message table, including total length, message number and message 
cells. 
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All entries which follow the listed range are standard messages in 
message blocks. They can be in any numerical order (even message 
number 00 need not be first), although they can be arranged for 
more efficient table search: messages near the beginning of the 
table will be found first. 


$e we ae ee + 

| Min Range Number | 2 nibbles (hex value) 
$a ee + 

| Max Range Number | 2 nibbles (hex value) 
$e a ne ee eee +--+ 

| Message Block | (see below) 
a + 

| Message Block | 

$—- - ~~ + 

| Message Block | 

$e ee ee + 

+----+ 

| FF | Table Terminator 
+--—-=+ 


The first nibble following the range field MUST bea 0. This 
means that the FIRST MESSAGE IN THE TABLE MUST HAVE A TOTAL LENGTH 
OF 16 (or a multiple of 16). Since the table can be arranged in 
any mumerical order, it is easy to move a qualifying message to 
this location. If there is no message which meets this 
requirement, construct a dummy message (one whose number is not 
needed) of 5 blanks, or anything that gives a total length of 16. 


A message block length of FF terminates a message table. 


Message number 00, the LEX file name, should, if it is included, 
contain a trailing space. 


Each message block consists of several parts: 


$9 + 

| Length of Block | 2 nibbles (hex value) 
$---- = - ~~ - +-+ 

| Message ID number | 2 nibbles (hex value) 
foes eee poses ee es + 

| Cell #1 | (see below) 
tone + 

| Cell #2 | 

$------ = + 

$a ee + 

| Cell #n | 
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1 c | "C" nibble, terminates block 


Message cells are of seven types: 
1) Text cell. 


Text cells are preceded by a length field: 
one nibble if length <= 11 characters, 


CON{1) 6 
NIBASC \7 chars\ 


or "B" followed by length nib if length > 11. 


CON(1) 11 

CON(1) 12 

NIBASC \13 chara\ 
NIBASC \cters\ 


2) Mainframe Building Block cell. 


Identified by an “E” nibble. 
This type of cell fetches an entire message from 
the mainframe table (some building blocks are simply 
frequently-used words). 
For example, 


CON(1) 14 identifies mainframe bld block 
CON(2) =eFILE fetches "File" building block 


3) Local LEX file Building Block cell. 


Identified by a "D" nibble. 
Similar to a Mainframe Building Block cell, this 
fetches an entire message from the local LEX file. 
The local building block need not be included in 
the table’s listed range. 
For exanple, 


CON(1) 13 identifies local building block 
CON(2) =eARRAY fetches “Array” building block 


4) Different LEX file Building Block cell. 
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Identified by an "FO" byte ("F" means “special cell"). 
This fetches an entire message from a different LEX 
file. Similar to above building blocks, except that 
this terminates the current message. The calling 
routine must know that the second LEX file is present! 
The referenced message must be included in the 
listed range of the second LEX file. 

For exanple, 


NIBHEX FO identifies diff LEX bld block. 
CON(4) =eXIRR transfers to "XIRR" message in 
another LEX file. The 4-nibble 
constant contains the LEX# 
and message# of the message. 


5) Indirect message cell. 


Identified by an "F1" byte ("F” means “special cell"). 
This cell identifies a transfer to another message 
text; the message number is passed to the message 
handler by the calling routine. The indirect 
message number can call any message in any LEX table, 
provided the message is included in the listed range. 
of the second LEX file. (The 4-digit message number 
is passed in R2 to the message handler MFURN -- see 
subsection “Entry Conditions for MFURN", above. } 

(A type {5} insertion requires special handling in 
foreign language translators -- see the section which 
describes their implementation. Consider this over- 
head when using type {5} insertions.) 

For example, 


NIBHEX Fi identifies indirect msg cell 


6) Insert Text cell: no trailing space. 


Identified by an "F2" byte ("F" means “special cell"). 
This cell identifies the fixed location where the 
message allows the calling routine to insert text. 
The text is inserted without a trailing space. 

(The text is passed to MFURN through codes in R2 -- 
see subsection “Entry Conditions for MFURN", above. ) 
For example, 


NIBHEX F2 identifies insertion point, 
no trailing space. 


7) Insert Text cell: with trailing space. 
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Identified by an "F3" byte ("F" means “special cell"). 
This cell identifies the fixed location where the 
message allows the calling routine to insert text. 
The text is inserted WITH a trailing space. 

(The text is passed to MFURN through codes in R2 -- 
see subsection “Entry Conditions for MFURN", above.) 
For example, 


NIBHEX F3 identifies insertion point, 
with trailing space. 


A message terminates with a "C" nibble. 


There are two levels of building block “subroutines” available; 
that is, a building block itself may reference one other building 
block. 


Message numbers need not be entered sequentially ina message 
table. In particular, message numbers may be missing entirely. 
This permits reserving a block of numbers for a certain type of 
message (such as 80 through 90 for errors concerning matrix 
dimensions). 


é 


10.5.3.3 ROM Savings With Building Blocks 


Building blocks (either local -- type {3}, or mainframe -- type 
{2}}) can save many bytes of ROM. Here’s the formula for deciding 
whether you will save ROM by making a string a local building 
block: 


Let n= #characters in string (2n= #nibbles) 
Let j= #times the string is used. 


Then k= #times necessary to guarantee savings with bldg block 
k’=#times necessary to guarantee loss with bldg block 


i.e., if j> k, guaranteed savings by using bldg block 


if j<k’ , guaranteed loss 
if k’<j<=k , check individually (*) 


In table form: 


n ke kf n | occurrences 
ss= sss ss= || ( chars)} 1 2 3 4 5 6 7 8 910 11 

1 inf inf || sesesscss| sesetesseessseessssereseressesscess 
2 6 11 | 2 J - - - - 2 2, 2 ot 
3 4 § |i 3 |fJ[- - > + + + + + + + + 
4 3 3 |i 4 |[|- - + + + + + + © + + 
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OIA MN 
On DD WI 
+ +) I 
++ + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
+ + + + 
++ + + 


-= loss (or breakeven) if bld block is used 
+= savings if bld block is used 
2?= check individually (*) 


NMNMNNMN ® 
MMNANMN WW 


[I 
1 | 
I | 
| | 
I]. 
{| 
| | 
| 


*Note: In the cases where you must check individually to verify a 
savings, the factor which affects this is the possible breaking up 
of a type {1} cell into two type {1}’s and a building block. For 
example, consider the following type {1} message cells: 


CON(1) 9 (Length of NIBASC=10) 
NIBASC \No Matches\ 

and 
CON(1) 9 (Length of NIBASC=10) 
NIBASC \Good Match\ 


Each cell takes 21 nibbles. If you wanted to make " Match” a local 
building block, these cells would now look like this: 


CON(1) 1 (Length of NIBASC=2) 
NIBASC \No\ 
CON(1) 13 (Indicator for type {3}) 
CON(2) eMATCH (Symbol for building block) 
CON(1) 1 (Length of NIBASC=2) 
NIBASC \es\ 

and 
CON(1) 3 (Length of NIBASC=4) 
NIBASC \Good\ 
CON(1) 13 (Indicator for type {3}) 
CON(2) eMATCH (Symbol for building block) 


Whereas the cells originally took 21 nibbles each, the first case 
now uses 13 nibbles and the second uses 12. The difference is that 
the first needs another length nibble for the “\es\" cell. This 
new type {1} fragment is the factor which requires some cases to be 
determined individually. 


The building block for " Match" would take 6 nibbles for overhead 
(message length, number and terminator nibble), plus 12 nibbles for 
the characters " Match’. The entire building block would add up to 
18 nibbles, whereas the savings from the above cells was only 17. 


Formula: Use a building block if 
the number of nibbles required for the building block 


2*(#characters in bld block) 
+ overhead for bld block (6 nibs, if under 11 chars) 
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+ 3 nibbles for each bld block reference (3}) 
+ extra length nibbles for fragmented cells 


is less than the total number of nibbles it would 
take to leave in the characters without bld blocks 
2*(#characters in bld block)*j 


i.e., use a building block if 
en+6+3j+x < 2nj 
where n= #characters in building block 
j= number of references to building block 
x= mumber of new type{i} fragments 
10.5.3.4 Example 


An example of a message table: 


CON(2) 43 Range: minimum msg number 

CON(2) 50 Range: maximum msg number 
* 
*'!! XMSG49 is placed first because it has a total length of 16. 
*!!! The first nibble following the range field MUST be a 0 !! 


*11! (See note in subsection entitled "Message Range", above. } 
Bie 
XMSG49 CON(2) (LEXNAM)-* Length to next msg, 
CON(2) 49 Message number. 
CON(1) 14 Mainframe building block. 
CON(2) =eFILE Use "File" from m/f. 
NIBHEX F3 To insert file name here w/space. 
CON(1) 13 Local building block. 
CON(2) =eXMSG1 Use “Private” building block. 
CON(1) 0 
NIBASC \!\ 
CON(1) 12 Msg terminator. 
* 
LEXNAM CON(2) (XMSG43)-* Length to next msg. 
CON(2) 0 Msg 00 reserved for LEX file name. 
CON(1) 3 Length-1 of NIBASC. 
NIBASC \XRM \ LEX file name. 
CON(1) 12 Message terminator. 
* 
XMSG43 CON(2) (XMSG48)-* Length to next msg. 
CON(2) 43 Message number. 
CON(1) 6 
NIBASC \Private\ Text. 
CON(1) 12 Message terminator. 
% 


XMSG48 CON(2) (XMSG50)-* Length to next msg. 
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CON(2) 48. 
CON(1) 14 
CON(2) =eLLPAR 
CON(1) 12 


XMSG50 CON(2) (XMSGf)-* 
CON(2) 50 
CON(1) 13 
CON(2) =LEXNAM 
CON(1) 7 
NIBASC \Catalog:\ 
: CON(1) 12 


XMSGf NIBHEX FF 


Message number. 

Mainframe building block. 
Use "Illegal Param" from m/f. 
Message terminator. 


Length to next msg. 
Message number. 

Local building block. 

Use "“XRM " building block. 


Text. 
Msg terminator. 


Table terminator. 


The “HP-71 Code Examples" chapter contains more examples of message 
tables, under “Foreign Language Message Translators." 
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11.1 File Chain Structure 


The HP-71 maintains a file area in main RAM which is comprised of a 
linked list, or chain, of file entries. Each file entry in the 
chain begins with a file header, which contains identifying 
information about the file along with the link to the next file 
entry in the chain. This link is referred to as the "File Chain 
Length field." The end of the file chain is marked by a zero byte. 
Each plug-in ROM module and independent RAM also contains its oun 
file chain. A later section in this chapter describes the order in 
which the various file chains are searched for a given file. 


Certain file types require special information between the file 
header and the file’s data. The Implementation Field, when present 
after the file header, corresponds to the Implementation Field of 
the file’s directory entry when it is copied to or from mass media, 
such as magnetic tape, which use the HP Logical Interface Format 
(LIF). The Implementation Field is always present after the file 
header for files of copy codes 1 (e.g. DATA) and 8 (user-defined), 
and otherwise is never present after the file header. The DATA 
file type, for example, requires that its Implementation Field be 
present to indicate the number and length of records in the file. 


Furthermore, some file types require a subheader immediately 
following the file header or Implementation Field. The BASIC file 
type, for example, requires a 6-byte subheader which contains tuo 
pointers into the data (program) portion of the file (see the 
description of the BASIC file type later in this chapter). The 
subheader presence, length, and format depends upon the file type. 
When a file containing a subheader is copied to external media, the 
subheader is not stored in the file’s directory entry like the 
Implementation Field, but is stored at the beginning of the data 
portion of the file. In this way the subheader is restored to its 
correct position after the file header when the file is copied back 
into memory. 


The following diagram shows the general structure of the file 
chain, showing one file without Implementation Field or subheader, 
one file with Implementation Field, and one file with a subheader. 
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11.1.1 File Header 


The format of the file header is described below. 


FILE HEADER 
$e ea a ee ee ee + 
| File Name | 16 nibbles 
$o----- --- = $e eee + ee ee + 
| File Type | 4 nibbles 
teen n ee +-<--4+ 
| Flags | 1 nibble 
$o------- $--=-4+ 
| Copy Code | 1 nibble 
$o---------- +---+ 
| Creation Time | 4 nibbles 
$o--- +--+ + 
| Creation Date | 6 nibbles 
$e ee +—--—+ 
| File Chain Length | 5 nibbles 
$e + 


Each file has a file header. The file header contains the 8 
character file name in ASCII, blank filled on the right (high 
memory). 


The 4 nibble file type field contains the file’s 16-bit signed 
integer file type, ranging from -32768 to 32767. HP-71 file types 
are explained in the File Types section. 


Next are 4 system flags. The two bits in the low end of the flag 
field indicate file protection. When set, the lower of the two 
bits indicates a file is SECURE; the higher of the two bits 
indicates a file is PRIVATE. The following two bits of the flag 
nibble are unused. 


File Header Flags 


+--+--4+--4+--+ 


Low 1 | | | | High 


$--4--4--4+--4+ 


aw aA 


; | 
| +---- PRIVATE 
+--- SECURE 


The next file header field is the Copy Code nibble. This nibble 
indicates the file attributes neccessary for external copying. The 
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specific encoding of Copy Code is explained under File Type Table 
in the "Table Formats" chapter. 


The creation time and date are set when the file is created. 

Creation date and time are stored in BCD. The time field contains 
4 nibbles; the minutes are in the low byte and the hour is in the 
high byte. The date field contains 6 nibbles; the day is 
represented in the low byte, the month in the next byte, and the 
year in the high byte. For exanple: The internal representation of 
3:45 12/16/81 would be as follows: 


Time Date 
$m hm 4 4 a a He 
1514/3/016)1/of1s1}3] 


$m $= $—4— 4 = 4 4-4-4 -4~4 


The next entry is the File Chain Length field. This is the offset 
to the next file (header) in memory. 


11.1.2 Implementation Field 


The HP-71 HP-IL Interface Module maintains external file systems on 
tape or other mass memory devices according to the HP Logical 
Interface Format standard. This format defines an 4 byte field in 
each file’s directory entry, called the Implementation Field, which 
may contain arbitrary information according to the file type. 


For certain file types, this 8 nibble Implementation Field must 
immediately follow the file header when the file is present in 
memory. Whether or not the Implementation Field is present is 
determined by the file’s copy code, which is taken from the File 
Type Table entry for that file type (the copy code is stored in the 
file header). Copy codes 1 and 8 always have the Implementation 
Field present after the file header; all other copy codes have no 
Implementation Field present after the file header. 


When a file is copied to external mass media, the Implementation 
Field written to the new file’s directory entry is either generated 
by the operating system according, or is copied directly from the 
Implementation Field present after the file’s header. See the 
section below on "File Header Structure by Copy Code" for further 
information. 


| Implementation Field | 8 nibbles 
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11.1.3 File Subheader 


Aside from the file header format and Implementation Field given 
above, for certain file types additional information may accompany 
the file header in the form of a subheader, which immediately 
follows the file header or Implementation Field. | Subheaders must 
be an even number of nibbles in length and must be no more than 250 
nibbles long. The format of a subheader is determined by the file 
type. 


The presence of a subheader after the file header or Implementation 
Field is determined indirectly by the Offset to Data field in the 
File Type Table entry for that file type. This field gives the 
offset from the start of the File Chain Length field in the file 
header, to the actual start of data, skipping over the 
Implementation Field and/or the subheader, if either are present. 
The presence and length of the subheader can therefore be 
determined using the Offset to Data field and the copy code (which 
determines whether the Implementation Field is present) according 
to the chart below. Refer to the following section for further 
details concerning copy codes. 


Data 
Offset Applicable Copy Codes 
File Header Structure in Nibs oO i1 2 4 8 
wr rr nn a ee eee ne eee $$ aH + ~~ + 
* No subheader, 5 x KX 
No Implementation Field 
* No subheader, 13 x x 
Implementation Field 
* Subheader of n nibs, 5+n K K 
No Implementation Field 
* Subheader of n nibs, 13+n x 


Implementation Field 


11.1.4 File Header Structure by Copy Code 


The presence of the Implementation Field after the file header is 
determined by the file’s copy code, as outlined in the chart below. 
The copy code originates in the File Type Table entry for that file 
type, and is stored in the file header. 
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Exemplary 
file type 


| 

| 

| 
‘ 
Imp. Field | 
after file | 
neader? | 
+ 

Imp. Field | 
contents onl 


ext media | 
+> 


May have | 
subheader? | 


Format A: 


Format B: 


Format C: 


FILE HEADER STRUCTURE BY COPY CODE 


0 1 2 4 8 
BASIC, KEY, DATA SDATA TEXT User- 
LEX, etc def ined 

No Yes No No Yes 

Format A Format B Format C zero User- 
def ined 

Yes No No Yes Yes 

Nib Contents 
T=2 Length of file in nibbles 
1-0 Unused (zero) 
7-4 Unsigned integer specifying number of 


records in file, byte reversed 
3-0 Unsigned integer specifying number of 
bytes in record, byte reversed 


7-6 Protection; if set to 08 hex, file may 
not be purged, renamed, or written to; 
otherwise should be set to 0 


5-2 Signed integer specifying nunber of 
registers (8-byte records) in file 


1-0 Umused (zero) 
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11.2 File Types 


The following file types are directly supported by the HP-71 
mainframe. OEM software developers may support other file types by 
first reserving the file type with HP (see the “HP-71 Resource 
Allocation" chapter), and then by including the appropriate poll 
handlers in a LEX file. Each file type is identified by a 16-bit 
value which conforms to HP’s Logical Interchange Format for Mass 
Media. 


When HP-71 files are stored on external media, file security and 
privacy are encoded, if applicable, in the mumeric file type as 
shown in the chart below. When files are stored in memory, privacy 
and security are encoded in the flags field of the file header, and 
the file type stored in the file header is ALWAYS the normal file 
type. 


Hex Numeric Value 


Type Description Security**: Normal S P E 
BASIC Tokenized BASIC program E214 E215 E216 E217 
BIN HP-71 Microcode E204 E205 E206 E207 
DATA Fixed Data EOFO EOF1 n/a n/a 
KEY Key Assignment E20C E20D n/a n/a 
LEX Language Extension E208 E209 E20A E20B 
SDATA Stream Data EODO n/a n/a n/a 
TEXT ASCII text, in LIF Type 1 format 0001 EOD5 n/a n/a 


** Meaning of the Security Symbols: 


Symbol Meaning 

Normal File is not protected 

S File is SECURE 

P File is PRIVATE 

E File is SECURE and PRIVATE 


11.2.1 File Protection 

The default protection for a file is no protection. A file with no 
protection can be edited, purged and executed. File protection is 
specified through the SECURE and PRIVATE commands. 


File protection is detected by tuo bits in the flag field of the 
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file header. When set, the lowest bit of the field indicates the 
file is SECURE; the next bit (bit 1) indicates the file is PRIVATE. 


11.2.2 BASIC 


A BASIC file contains tokenized BASIC programs or subprograms, and 
is created by the HP-71 BASIC editor. A BASIC file has a copy code 
of 0, a 12-nibble subheader, and no Implementation Field present 
after the file header. 


A main program, if present, must start immediately after the 
subheader. Any subprograms present are chained sequentially 
thereafter. The file’s Subprogram chain is headed by a link in the 
subheader. 


11.2.2.1 Subheader 


The BASIC file subheader contains 3 fields. The Subprogram Chain 
Head contains the first pointer of the Subprogram chain in the 
file. Similarly, the Label/User-Defined Function Chain Head 
contains the starting pointer of the chain of labels and 
user-defined functions within the main program. A permanent EOL 
(hex FO) always precedes the start of data (start of the first 
line) for a BASIC program file. This causes every program line to 
conform to the same format. 


BASIC Subheader 


$—---- +--+ - + 
| Subprogram | 5 nibbles 
| Chain Head | 
ow aw a + 
| Label/User-Defined | 5 nibbles 
| Function | 
| Chain Head | 
$a wenn oe +----+ 
| FO | 2 nibbles 
$----+ 


The chain head and links have the following values and meanings: 


Chain head or 


chain link Meaning 
00000 Chain is not yet established (head only) 
nnnnn Offset to next link 


FEFFF End of chain 
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11.2.2.2 Subprogram Chain 


The purpose of the Subprogram chain and Label/User-Defined Function 
chain is to speed up searching for subprograms, labels, and 
user-defined functions. 


Subprograms are only chained within a file. The Subprogram chain 
head contains the offset in nibbles to the next chain link in the 
file. The only two BASIC statements in this chain list are SUB and 
ENDSUB. A five-nibble relative address is tokenized in association 
with these statements, which is used to hold the link to the next 
entry in the chain. 


11.2.2.3. Label/User-Defined Function Chain 


The Label/User-Defined Function chain is similar to the Subprogram 
chain, except label declaration and user-defined function 
definitions are chained within a program or subprogram. If a file 
contains one main program and several subprograms, the main program 
and subprograms will each have their own Label/User-Defined 
Function chain. 


Statements and other constructs linked in this chain are: 


Label declarations 
DEF FN 
ENDDEF 


A five-nibble relative address is tokenized in association with 
these constructs, which is used to hold the link to the next entry 
in the chain. 


11.2.2.4 Statement Tokenization 


A BASIC program line begins with a line number and terminates with 
an End of Line (EOL) token. A program line may contain multiple 
statements. A multi-statement line is preceded by an@_ token. 
Following each line number or @ token is a statement length byte. 
This statement length is a relative offset to the next terminating 
token. Statements within a BASIC file are linked together using 
these relative offsets. 


See the subsection on Statement Tokenization in the "Statement 


Parse, Decompile, and Execution" chapter for examples of statement 
tokenization. 
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11.2.3 BIN 


A BIN file is a binary or machine language file which is executed 
directly by the operating system. A BIN file is created using an 
assembler such as the FORTH/Assembler ROM. It has a_ copy code of 
0, a 12-nibble subheader, and no Implementation Field is present 
after the file header. 


Each BIN file may contain one or more subpgrograms, which are 
linked ina manner similar to BASIC files. However, each BIN 
program MUST have a main program, since a BIN file may be executed 
directly by a RUN statement. This main program should end with the 
statement: 


GOVLNG =ENDBIN 


in order to end execution of the main program and return control to 
the operating system. If no useful main program is appropriate to 
a BIN file, the “main program" should consist only of the above 
statement. 


A binary file’s main program can be invoked by RUN or CHAIN. It 
may also be called as a subprogram by the CALL statement. (In this 
case no parameters will be passed, and the subprogram will have the 
caller’s local environment. ) 


Note that when a subprogram (BASIC or BIN) is called from a BIN 
file, the math stack is not collapsed when the subprogram ends. To 
collapse the math stack, the BIN program must call the COLLAP 
routine. 


Ve e4 Subheader 


The subheader of a BIN file is the same length as that of a BASIC 
file, and has a similar format. Its Subprogram chain field is used 
to chain subprograms within the binary file. The 
Label/User-Defined Function chain field is always FFFFF (empty) 
since there are no labels and user-defined functions within the 
context of a binary program. The "20" code at the end of the 
subheader is a filler to make the BIN subheader size equal to that 
of the BASIC file subheader to facilitate use of common access 
routines. 
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BIN Subheader 


$e ee + 
| Subprogram | 5 nibbles 
| Chain head | 
$2 -- 2 ee + 
| FFFFF | 5 nibbles 
aoe ee we ee ee oe 
| 20 | 2 nibbles 
+~---+ 


11.2.3.2 Subprogram Chain 


The purpose of the subprogram chain in a BIN file is the same as in 
a BASIC file -- to speed up searching for subprograms. 


If there are subprograms in the BIN file, each subprogram must 
start with a SUB statement that is ’tokenized’ exactly as ina 
BASIC statement, except that a line number is not required. 


In a BASIC file, the mechanism for chaining subprograms is the 
CHAIN routine. However, this routine does not work for a BIN file. 
The chaining of subprograms ina BIN file must be done by the 
assembly programmer. At execution time, if a BIN file’s subprogram 
chain is not established, the subprograms won’t be found. 


11.2.3.3 Writing a Binary Subprogram 
A specific example for the format required for a binary subprogram 


is given below, followed by a more detailed ’flow chart’. Consider 
a binary subprogram, ABC, that has X and Y as formal parameters. 
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LABEL 


REL(2) 
CON (2) 
REL(5) 


CON (2) 
NIBASC 
CON (2) 
NIBASC 
CON (2) 
NIBASC 
CON (2) 
CON (2) 


GOVLNG 


REL(2) 
CON (2) 


NXTSUB NI BHEX 


GOVLNG 


LABEL 
=tSUB 
NXTSUB 


=tLITRL 
\ABC\ 


= tPRMST---- 


\X\ 

= tCOMMA 
\Y\ 

= tPRMEN 
=tEOL 


=ENDBIN 


LABEL2 
=tSUB 
FFFFF 


=ENDBIN 


Offset to byte prior to subprog code 

SUB statement token 

Offset to next subprogram in file 
(FFFFF if this is the last one) 


|- tPRMST and parm list are optional. 


Parameters are separated by comma 
Marks the end of the parameter list 


Start of subprogram execution code 


All BIN subprograms end this way. 


Offset to byte prior to subprog 


No more subprograms in chain 


The more generalized flow chart for ’tokenizing’ a SUB statement 


follows. 


Lowercase in the flow chart indicates sample names. 
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|REL(2) kx | Offset to byte preceding code 
|CON(2) =tSUB | 
LABEL |REL(5) nxtsub | Offset to analogous field in 
(for previous | | next subprog. - FFFFF if none 


subprogram |CON(2) =tLITRL| 
to reference) |NIBASC \subnm\| Fill in subprog name: 1-8 bytes 


} er eaneeeBe pana ene eas/ 1D." 
| | v aos 
| | eerie eee 
Vv | | CON(2) =tPRMEN | 
- ela eee 
/ \ | | 
/ Any \ No | v 
| Parms |---- 9 ---------------- 
\ 2? 7 xx | CON(2) =tEOL | 
\ f oe Sea aee 
| Yes v 
Wo. Bie eA cee al 
Brae eaee eases - subprogram - 
|CON(2) =tPRMST| = code - 
| 
| ae 
vi----/ C \ 
/ \ 
---  Chnl# /Simple,\ Array -------------- 
LAN (-e----- |Array, or|------ >» |CON(2) =tDMYAR| 
--- \Chnl# / 2 === ---------- 
Nar ote ih | 
S V 
| Simple = -------------- 
Vv | variable | 
Sseseses hes | descriptor | 
| variable | =) -------------- 
| | descriptor | | 
wwe ee eee oe wee Vv 


INIBHEX 1 or 2| 
| (#dimensions)} | 
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/ B\ 


\ 
/ More \ Yes -------------- === 
| Parms? |----> |CON(2} =tCOMMA|--->/ Cc \ 
/ 


Lowercase ’d’ indicates a digit: 
/A\ 


y \ 
/ Single \ Single ----------- 
(Or TMITIS [=ss<s2-> >|NIBASC \d\ |-=>/ B \ 
\ Digits 7} eee oe ee 
\ 


| 

| 

| Multi 

= | 

Beta e | 

|CON(2) =tINT2|  _ ---------- ! 

| or |  [NIBHEX dd | | 

[CON(2) =tINT3I--->| or mele 
| depending on| INIBHEX ddd| 
digits: “| -=++-+4-4- 
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Variable Descriptor 


0 eee cme me ee ce ee ee ee ee ee oe ee we we we ae ees 


/ String\ Numeric 
or |---------- 
\Numeric/ 
\ U2 7 


— ee we we ow we we oe oe 


ae eee ee ee ne ee we we oe oe ee we 


|CON(2) =tADIGd| 
| where dis | 
| the digit. | 


ce ew www wwe wee we 


INIBASC \1\ | 
| where lis | 
| the letter | 


11.2.4 DATA 
A DATA file is created by the CREATE statement. It has a copy code 


of 1, no subheader, and its file header is followed by an 
Implementation Field. 
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11.2.4.1 Implementation Field 


The DATA file Implementation Field is always present after the file 
header. It contains two 16-bit unsigned integers which give the 
number and length of records in the file. These integers are 
stored in byte-reversed format when the file is written to external 
media (that is, the low-order byte is written first) so that, when 
the file is in memory, these fields may be conveniently read (using 
an instruction such as A=DAT1 4 }. 


DATA Implementation Field 


| Number of records | 4 nibbles 
| (byte-reversed) | 
$e ne oo ee en ne ee “+ 
| Record length in bytes | 4 nibbles 
| (byte-reversed) | 


11.2.4.2 File Structure 


A DATA file is a series of records with fixed record length. 
Within a record, numeric and string data is stored in sequentially 
contiguous segments. If a string data item overflows the bounds of 
a record in sequential access, it is broken into smaller segments. 


If one or more bytes remains in the current record but this is not 
enough to write the next data segment, an End-of-record byte (see 
below) is written and the file is positioned to the next record in 
order to write the data segment. 


The first byte of a data segment indicates the type of the data, 
and is called the determiner byte: 


Data Segment Data 

Determiner Segment 
Byte Meaning Length 

2 BCD digits Floating point number 16 nibs 
FF hex End of file a 
EF ”" End of data in this record eo ™ 
DF “ Entire string falls in this record 6+n “ 
CF " Start of string is in this record 6+n " 
re Middle of string is in this record 6+n " 
6F " End of string is in this record 6+n " 


where nis the length of the data portion of the string data 
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segment, determined by a 16-bit unsigned byte count which 
immediately follows the determiner byte of the data segment. For 
Start-of-string (CF) and Middle-of-string (7F) determiners, this 
byte count is NOT the length of the data segment, but is the 
remaining string length in bytes. In this case the end of the data 
segment is determined by the end of the current record, with which 
it must coincide. For instance, if the byte count for a 
Start-of-string (CF) segment is 0032 hex, it means the entire 
string is 50 bytes long but not all of the 50 bytes is in this 
record. So the beginning of next record must be a Middle-of-string 
(7F) or End-of-string (6F) data item. 


STRING DATA FORMAT 


In the case of string data, the two bytes immediately following the 
determiner byte contain a 16-bit unsigned integer which specifies 
the total remaining length in bytes of the string data. The 
determiner byte and the two-byte length count are NOT part of the 
data itself (and are not included in the length count). 


When stored on mass media, the length count field is byte-reversed, 
as inthe HP-85, with the low order byte written first. for 
example, 01AB hex is written ‘“ABO1". This is so that, when the 
file is in memory, this field may be conveniently read as a normal 
4-nibble number (using an instruction such as A=DAT1 4 ). 


If a string data item is written sequentially to a DATA file and 
the string is too long to fit into one logical record, it will be 
stored in consecutive logical records. The first portion of the 
string, which must contain at least one character, will be prefixed 
with a Start-of-string determiner (CF hex). The logical record 
with the end of the string will contain the End-of-string 
determiner, the remaining length of the string (at least 1), and 
the remainder of the string data. All other records which contain 
part of the string will contain the Middle-of-string determiner (7F 
hex), the remaining length of the string, and a section of the 
string. 


Each byte of a string may have a value between 0 and 255 decimal. 
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STRING DATA SEGMENT FORMAT 


$--- e+ + + + + 

| String Data Segment | 1 byte 
| Determiner Byte | 

$ eee ane - Ho + + + + + 

| | 

| Remaining Data Length | 2 bytes 
| (byte-reversed) | 

| | 

a a a a ee eee + 

| | 

| String data | n bytes 
| 

$a we wn ee ee + 


NUMERIC DATA FORMAT 


Each numeric value is represented as an 8-byte register. All 
values written to this file type are normalized, except in the case 
of IEEE exceptional values explained below. The register is 
divided into 3 BCD fields: 
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File System 
NUMERIC DATA ITEM FORMAT 
Size in 
Field Digits Description 

Mantissa sign 1 Symbol is MS. 
0 - Positive 
9 - Negative 

Manitssa 12 Digits are referred to as MO through 
Mil, with MO the most significant 
digit. MO is nonzero for normal- 
ized nonzero numbers. 

Exponent 3 Digits are referred to as EQ through 


E2, with EO the most significant 
digit. EO may be non-BCD for ex- 
ceptional values described below. 
For normalized values, if the 
exponent is: 
0 to 499 it is 
represented as 0 to 499; 
-1 to -499 it is 
put in 10’s complement and 
represented as 999 to 501. 


The register is written to the file as follows: 


ee ee ee ee ee ee ee ee we eee ee et oe re we ee ee ee ee we oe wre ee ewe ee we ee oe we oe ee ee we ww we we we ewe we oe we ewe we ee 


first byte last byte 


MS : Mantissa sign 

MO : Most significant digit of mantissa 
M11: Least significant digit of mantissa 
EO : Most significant digit of exponent 
E2 : Least significant digit of exponent 


~123 


For example, the value 3.14159265359 * 10 
would be written as : 
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—— we ee ee ee ee ee ee ee ee em ae ee oe ee en re we ee we ee cw aw ee oe ae we ee 


TT em am oe ae ae ee me cae ee ce me Se RR me eo eae aay SS nee wD ae ae a me ae a oe 


Normalized: 
Nonzero ----@---- § ---n--- 
zero 0 0 O 8 0 0 
0 1 5 5 n 0 
Denormalized ~---d---- 
Positive Infinity 0 0 F 0 nm mn 
Negative Infinity 0 0 F_ 9 m nm 
Not-a-Number (NaN) --c-- F 5 ---t--- 
Where : 
F = Fifteen 
c = Class of NaN (non-zero BCD integer, 1-99). 
e = 10’s complement exponent; any BCD integer 
except 500 
d = Denormalized exponent 501, which is -499 
in 10’s complement 
m = Meaningless 
n = Non-zero BCD integer 
s = Sign (0 or 9} 
t = Tag identifying origin or type of NaN 


if class other than 99, else meaningless 


Normalized Values 


Generally, a BCD mumber is normalized and within the range of 
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-~1.00000000000 E -499 to -9.99999999999 E 499 if negative and 
+1.00000000000 E -499 to +9.99999999999 EF 499 if positive. A 
number is considered normalized if MO is nonzero, or if MO is zero 
and M1 through M11 are also zero. 


Exceptional Values 

However, certain mathematical operations may result in an 
exceptional value that may not be normalized, as in the case of 
underflow, or may not even be a real number, as inthe case of 


Infinity or Not-a-Number (NaN). These values are encoded in the 
following manner: 


a. If EO = F, the number is either Infinity or Not-a-Number (NaN) 
and if E1&E2 = 00 - the number is Inf (infinity) 
and if E1&E2 # 00 - the number is NaN (E1&E2 are the 
class number of the NaN) 


The IEEE standard states that in the case of NaN, the sign of 
the mantissa and the mantissa may contain system specific 
information regarding the origin of the NaN. For example, 
there may be information in the mantissa stating the line 
where the NaN occurred, the error number generated, and the 
origin of the NaN, Sachi as 0 divided by 0 or square root of a 
negative number. 


The format by which any extra information has been encoded in 
the mantissa is identified by a ’class number’ which is 
contained in nibbles El and E2 of the exponent. The class 
number is a BCD number in the range 1 to 99. Currently the 
only class number defined is 99, which means no useful 
information is contained in the mantissa, To reserve a class 
mumber, contact the PCD LIF coordinator. 


b. If EO # F and MO = 0, the number is either 0 or denormalized 
and if exponent = 0 - the number is zero 
and if exponent # 0 - the number is denormalized 
e.g. 0.00012E501., 


11.2.5 KEY 


If no system file ’keys’ exists, then if a key is redefined using 
the DEF KEY statement or if a MERGE is done using a KEY file, a new 
KEY file ’keys’ is created. This is the only way in which KEY 
files are created. 


The KEY file type has a copy code of 0, no subheader, and no 
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Implementation Field is present after the file header. 
11.2.5.1 File Structure 


Each entry in a KEY file is a key assignment. Entries are encoded 
as follows: 


$a ~~ $e ae we we we ne ee $e ew $e ww ee ee + 


| Keycode | Entry length : Assignment Type | String constant | 


he ee oe ee me owe be we a we we a wo we a a we ne $e ee ee ee ee + 


Keycode : 1 byte hexadecimal key number; 
Keys are mumbered in row major order 

Entry 

Length : 1 byte representation of the entry length; 
Length from keycode to next entry or end of file 


Assignment 
Type 1 nibble assignment type 
0 = Automatically sends End Line 
1 = No End Line sent (specified by ; in DEF KEY) 
2 = Direct Execute (specified by : in DEF KEY) 
11.2.6 LEX 


Language Extension (LEX) files are the most powerful type of 
software file used by the HP-71 operating system. They are 
typically created by an assembler such as the FORTH/Assembler ROM. 


The LEX file type has a copy code of 0, no subheader, and no 
Implementation Field is present after the file header. 


11.2.6.1 File Structure 


The structure, creation, and use of this file type is described in 
detail in the “Language Extension and Binary Files” chapter. 


11.2.7 SDATA 


The SDATA file type is the data file format used by the HP Series 
40 calculators (41C, 41CV, 41CX) under the catalog name of DA. The 
HP-71 can read string or numeric data from this file using READ#. 
However, the HP-71 can write only numeric data to this file type, 
using the PRINT# command. An SDATA file is created by the CREATE 
statement. 


The SDATA file type has copy code of 2, no subheader, and no 
Implementation Field is present after the file header. 
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11.2.7.1 File Structure 


The SDATA file is a collection of registers. A register is always 
8 bytes in length and can contain a BCD floating point number or a 
string data item of up to 6 characters. 


The format of a mumber is the same as that used in the HP-71 DATA 
file (see the description of DATA file structure earlier in this 
chapter). If the register contains string data, the sign field $ 
will be equal to 1. The characters are stored in nibbles M1 to 
M10, right justified with leading zeros. 


11.2.8 TEXT 


A TEXT file is created by the CREATE statement. The TEXT file type 
has a copy code of 4, no subheader, and no Implementation Field is 
present after the file header. 


11.2.8.1 File Structure 


The format of the TEXT file is determined by the HP Logical 
Interface Format (LIF) standard for the ASCII Interchange file type 
(LIF file type 1). A TEXT file is a series of contiguous variable 
length records. Each record starts with a two-byte data length 
count (in bytes). A data length count of FFFF hex marks the end of 
the file (however, the end-of-file marker is not required to be 
present). If the data length count is FFFF hex, there is no data 
in the record. 


Otherwise, if the data length count is odd, a pad byte of arbitrary 
content is appended to the end of the record so that the total 
record length will be an even number of bytes. Therefore, if the 
data length is an even number, the total length of the record (in 
bytes) is the data length plus 2. If the data length is an odd 
mumber, the total length of the record is the data length plus 3. 


Note that when a TEXT file is stored on external media, the data 
length count field is NOT byte-reversed, in accordance with the HP 
Logical Interface Format standard mentioned above. This means that 
when this field is read into a register using an instruction such 
as A=DAT1 4 the two bytes must then be reversed before the value 
can be properly interpreted as a number. The routine SWPBYT is 
used for this purpose. 
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TEXT FILE RECORD FORMAT 


| | 2 bytes (FFFF hex marks 
| Data Length | end-of-file) 

| (NOT byte-reversed) | 
| 


$e ee ee ee + 

| | n bytes (where n is 

, Data | data length) 
| | 

| 

| | 

$a we ne ee ee ee + 

Pad Byte ; 1 byte (only present if 


Se Bd. alata teas aes etek So eevee odd data length) 


11.3 Copying a File 


11.3.1 Copying to/from Card 


The FILCRD and CRDFIL subroutines provide for data transfer 
between memory and cards. 


FILCRD copies a file to cards. Input conditions call for 
providing the address of the file to be copied out, the 
new name to be used on the card, and a flag indicating 
privacy. Files may be copied out from any memory device 
to cards. 


Routine CRDFIL copies a file in from cards. Input conditions 
call for providing the name of the file on card (if 
specified) and the name to be used in RAM (if specified). 
Files may be copied in to main RAM only. 


Both routines prompt the user and handle the complete copy 
operation. They return if the copy was successful, and 
take error exits if the copy errors out or is aborted. 


The CARD reader buffer is used to hold a copy of the 


card header during card reader operations. During 
CAT CARD or CAT$(1,":CARD"), a somewhat larger buffer holds 
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not only the card header, but a dummy file header used 
by the catalog entry formatting routines. 


11.3.2 Copying to/from External Media 


as “COPY A:TAPE” or “COPY ’A:TAPE’", the filespec parse poll 
and filespec execute poll give lexfiles the opportunity 

to recognize and act on the commands. See the poll interface 
descriptions for more details. 


11.3.3 Copying to/from Other Memory Devices 


The HP-71 mainframe code does not support copying to or 
from memory devices other than RAM. However, hooks exist 
in the COPY code to handle future devices, such as EEPROMs, 
EPROMs, PROMs, or whatever else may come along. 


When COPY is asked to copy to an external memory device, it 
examines the configuration table to determine the memory 
type. If it is not RAM, it will poll for a copy handler. 
Failure to find a copy handler will result in an "Illegal 
File Spec" error. 


Details on the polling conditions can be found in the 
documentation on the pCOPYx poll. 


11.4 Opening a File 


A file can be opened by executing the ASSIGN # statement or by call?? 
routine OPENF internally. The information required to access the fi?? 
be written to an entry in the File Information Buffer (FIB), which 2? 
system buffer maintained by the operating system. 

Up to 64 files can be opened at the same time since there is room f?? 
this many entries in the FIB. 


All access to an opened file is controlled by its entry in the FIB, 
which is identified internally by an FIB entry number. This number , 
also referred to as the file’s entry in the FIB, 

is not to be confused with a channel number which may (or may not) 
be associated with the FIB entry through the ASSIGN buffer. 

When discussing a particular opened file, the file’s entry in the 

FIB is also loosely referred to as "the FIB" for brevity. 


Whenever an opened file 
is accessed, the file pointer in the file’s FIB entry should be upd?? 


If other devices are specified in the copy command, such 
When the file is closed, as with the CLOSEF utility, its FIB entry ?? 
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removed. 


The format of the FIB entry is given in the "Table Formats" chapter?? 


11.5 File Searching 


When presented with the name of a file to find in memory, 

the operating system automatically searches the various file chains?? 
according to the algorithm described here. The operating system do?? 
automatically search for a file on external devices. 


If no device is specified for the search, file searching starts wit?? 
RAM and continues onto the ports, in port specifier order (only ROM?? 
Independent RAM ports are searched). If the Main 

RAM file chain is specified (:MAIN), only that chain is seached. $77 
the file chain on a particular port may be specified with :PORT(n). 
Or, a file seach may be restricted to only the port file chains 

if :PORT is used without a particular port specified, 


The routine used in internal file searching is FINDF. A detailed 
description of its algorithm is given below. 


FINDF File Search Algorithm 


Clear Single File Chain Flag (S8); 

If there is no file chain specified 
THEN goto B; 

If :MAIN is specified 
THEN goto A; 

Save file name in R2; 

If :PORT is specified (search all ports) 
THEN goto F; 

Set Single File Chain Flag (S8); 

Call ROMF-1; goto G 


A: Set Single File Chain Flag (S8); 
B: Set up to search Main RAM; 
Clear S6 {Initial Port Search not Done} 
C: Search file chain; 
If file found in this chain 
_ THEN exit with carry clear; 
If S8 is set 
THEN load up error; exit with carry set; 
If S6 is clr (Initial Port Search not done) 
THEN Save file name in R2; 
Call ROMCHK; 
Restore file name; Set S6; 
If no (more) plug-ins 


CQ 4 
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THEN load error; exit with carry set; 
ELSE goto C; 
Call ROMFND; goto G. 


11.6 File Creation 


Mainframe files are created by the routine CREATF, and be created 
in either Main RAM or on an Independent RAM (IRAM) port. Depending 
On entry conditions, a file may be created in Main RAM, on a 
specified port, or on the first port found to have enough room for 
the file. Unlike the entry conditions for FINDF, if no particular 
device is specified, Main RAM is assumed. 


Routine CRIF is a general-purpose utility to create a file either 
in the mainframe or on an external device. CRIF performs 
rudimentary initialization of a file depending on its file type, 
and makes use of CREATF or the HP-IL Module (via polls) depending 
on the specified device. 


The CREATF algorithm for creating a mainframe file is described 
below. 


CREATF Algorithm for Creatung a Mainframe File 


Save desired file size in R0; 
If MAIN or no file chain specified 
If not enough memory with LEEWAY check 
1: Load error; return with carry set; 
Open up memory; Write time/date in header; 
Write File Chain Length field; 
Goto RFADJ+; 
If no particular port specified 
Call ROMCHK; 
If no (more) plug-ins 
A: Load error; return with carry set; 
Call B; 
If create done sucessfully on that plug-in 
Return with carry clear; 
Call ROMFND; goto A 
Call ROMF-1; 
If plug-in not found 
THEN goto A; 
B: If plug-in is not RAM 
THEN load error; return with carry set 
Calculate amount of available memory on 
plug-in (LSTADR-EOFLCH) ; 
If not enough room 
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THEN goto 1; 
Write creation date/time; write file chain length 
Return with carry clear. 
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12.1 ASSIGN Buffer 


The ASSIGN buffer (bDASSIGN) saves all the open channel #’s. Every 
entry in the buffer takes 5 nibbles. The information contained is: 


Channel # (Device #) 2 nibbles 
Code Nibble 1 nibble 
FIB# or Indirect Channel # 2 nibbles 


Every entry occupies 5 nibbles. The maximum ASSIGN buffer size is 
4095 nibbles, so a maximum of 819 channels and stack markers will 
fit in the ASSIGN buffer. 


If the channel # is zero, then the remaining high 3 nibbles are a 
count of subroutine levels without any channels on that level. The 
maximum count of SUB levels in the stack marker is 4096 (0-FFF 
hex). 


The assign table is always searched from the end of the buffer to 
the start of the buffer or a stack marker, whichever occurs first. 
This implies that all new entries are appended to the buffer. 


If the code nibble is non-zero, the search routine should search in 
the previous stack level for the indirect channel #. These links 
continue back until either a FIB# is found or an entry with an FIB# 
of zero is found. A zero FIB# means this channel is no longer 
open. 


12.2 Card Reader Buffer 


This is a buffer (bCARD) used by the card reader subsystem for 
building a copy of the card header being written out or read in 
to/from card. The format of the information is as follows (all 
numbers shown in bytes): 
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0: sub-format (1): 00 for LIF1 file (HP-75 subformat) 
01 for HP-71 files (HP-71 subformat) 

1: track# (1) 

2: # of tracks in set (1) 

3: # bytes in this track (2) 

5: # bytes in file (2) 

7: file type (2): Kangaroo filetype (HP-75 subformat) 
LIF filetype number (HP-71 subformat) 

9: creation date (4): hex seconds since start of 

century. 
13: file name (8) 
21: password (4): blanks for LIF1 filetype (HP-75 sbfmt) 
implementation (4): (HP-71 subformat) 
25: marker (2): checksum of entire file, including 
file header. 

27: partial statement status (1) 

28: sl--partial statement size information (2) 

30: s2--partial statement size information (2) 

32: data checksum (2): 2-byte checksum of data field. 

34: header checksum (1): 2-byte sum of header field, 

folded to one byte without 
wraparound carry. 
35: (reserved) (1) 


When a CAT CARD is performed, some additional space is created at 
the end of the buffer for building a dummy file header. This dummy 


header is used by the CAT formatting routines to create a catalog 
entry listing. 


12.3 Character Sets 


12.3.1 Standard Character Set 

The standard character set consists of ASCII characters 0 through 
127. 

12.3.2 Alternate Character Set Buffer 

The alternate character set buffer (bCHARS) has two possible 
formats. If the alternate set is contained in the buffer itself, 
the buffer will have an even mumber of nibbles. If the buffer is 
merely a pointer to a character set stored elsewhere, then the 


buffer will have an odd number of nibbles. 


In the case of an even length buffer, the contents of the buffer 
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consist of n_ groups of 6 bytes (where 1 <= n<= 127). Each byte 
describes one column of one character. Each group of bytes defines 
one character pattern. The least significant bit of each byte 


corresponds the top row of the display. 


In the case of an odd length buffer the contents of the buffer 
consist of a 5 nibble absolute address of the actual character set 
table followed by a byte which uniquely identifies which character 
set is being pointed to. This byte is used during the configure 
poll (pCONFG) to help individual ROMs determine if they are 
responsible for this buffer. The table pointed to should consist 
of a three nibble length field followed immediately by a table in 
the same format as would be in the buffer. As long as the buffer 
contents remain an odd length the buffer may be extended as 
desired, since it will be ignored when the character set is 
referenced {ie. it might be used to preserve a previously active 
character set to be restored later). 


This buffer’s update count field should contain a 1 if it is an odd 
length buffer so that the address pointing to the character set 
table will be updated when memory moves. 


When the auto-delete of I/0 buffers is performed during 
CONFiguration, this buffer will be deleted only if it is odd in 
length and no ROM responds to the poll (pCONFG) by marking the 
buffer and updating the address pointing to the actual character 
set table. 


12.4 External Command Buffer 


The External Command Buffer (bECOMD) may be created by a LEX file 
during the pDSWNK or pDSWKY poll. It contains BASIC ASCII text in 
the same format as in the Startup Buffer. The text will be 
executed on return from Deep Sleep IF Deep Sleep was called from 
the Power Down routine. A system flag, f1PUDN, identifies if 
deepsleep was called from powerdown, which is useful during the 
powerup polls. 


12.5 File Information Buffer 


The FIB is a system buufer maintained by the operating system which 
contains an entry for each open file. All access to an opened file 
is controlled by its entry in the FIB, which is identified 
internally by its entry number. See the "File System" chapter for 
further information on file access. The format of each FIB entry 
is as follows. 
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FILE INFORMATION BUFFER (FIB) ENTRY FORMAT 


ee oe oe oe om oe oe oe oe oe ne oe ow oe ee ee me et oe ee we oe es we oe we oe we ww ee we ee we we ees 


1. FIB entry mumber (2 nibs) - If 00, end of FIB 


2. File 1/0 Buffer number (3 nibs) - 
If the file is on external device, it has a 256-byte system 
puffer associated with it to hold the current sector. If 
this field is not 000, it is the ID of this associated 
File I/O buffer. | 


3. File type (4 nibs) - File type mumber of the file 


4. File protection nibble (1 nibs) - This is the same nibble 
in the file header 


5. File copy code (1 nib) - This is the same value as in the 
File Type Table entry for this file type 


6. Access code (1 nib) - 
This nibble is only useful for files on external devices. 
It is set to 1 when the current contents of the file 1/0 
buffer has been altered. It is set to zero when a new record 
has been read into the file 1/0 buffer. 


7, Device type(1 nib) - This nibble indicates where the file 
is located : 
0 - Mainframe 1 - Independent RAM 
2 - ROM 8 - HP-IL device 


8, File begin (6 nibs) - 
For file in RAM/ROM : 


Nibs Field 
4-0 Abs address of file header start 
5 Unused 


For file in mass memory device : 
Nibs Field 
0 Nth entry in the directory record 
4-1 Record number in the directory area 


9. Subheader length (2 nibs) 
This length is the mumber of bytes of the subheader. It is 
computed as follows: 


Subtract 5 nibbles from the Offset to Data field of the File 
Type Table entry for that file type. If the copy code is 1 
(e.g. DATA) or 8 (user-defined), subtract another 8 nibbles 
for the Implementation Field, which is present after the 
file header. Then divide by 2 to convert into bytes: 
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Copy code 1 or 8: (Offset to Data - 13) / 2 
Copy code 0, 2, or 4: (Offset to Data - 5) / 2 


10. File data start (11 nibs) - 
This is the absolute address of the start of data of the 
file. 


For file in RAM/ROM: 


Nibds Field 

4-0 Abs addr of data start (skip over the subheader) 
6-5 Hex FO 

8-7 Port address: Port #, Extender # 

10-9 Unused 


For file on an external (HP-IL) device: 


Nibs Field 

3-0 Record addr of the first record of the file. 
If the file has subheader, the subheader starts 
from byte 00 of this record. 


6-4 Device address 
9-7 Assign code 
10 Assign type 


11. File length(4 nibs) - 
For fixed record length file, this is the file length 
in number of records. 


12. Record length(4 nibs) - 
For fixed record length file, this is the record length 
in number of bytes. 


13. Current position(6 nibs) - 
This is the current file pointer. It is the offset from the 
file data start. 
Nibs Field 


ee oe ee me ee ee ee re ee eee me we ree ee wee a ee ee ee ee ee ee we we we we ae ae ae a ae ee 


5-0 Offset from file data start in nibbles. 


14. File data length(6 nibs) - 
This is the file data length not including the subheader. 
Nibs Field 


aw ee ce me ae mre eee ee ee eee ae ee re we ae ee ee ee ee ee ee we ee ee ee ee ee ee we ee ee ee ewe ee ee eee ee ee 


5-0 File data length in nibbles. 


15. Remaining length in current record(5 nibs) - 
This field is used by PRINT# and READ# to keep track of 
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how many bytes to the end of current record. 


16. Device size (6 nibs) 
This field is only useful for file in an external mass 
memory device(HP-IL) 
Nibs Field 


— oe oe oe —— ee ee cee te ee oe ee oe ee ee wee ce we em wee we oe we oe ee ee ee ee ee ee ee ee ee es ee ee ee ee 


5-0 Number of sectors allocated to this file. 


12.5.1 Open Files and Protection 


Whatever a file’s protection is at the time it is opened, is the 
access capability that is stored in the FIB. Therefore all 
subsequent commands which reference the FIB for their operation 
will be subject to the access capability of the file AT THE TIME IT 
WAS OPENED. The implication here is that the user may choose to 
open a file, SECURE it, proceed to do a series of PRINTs to that 
file, and then close the file. Until the file’s protection is 
changed, all that transpired while the file was open is protected. 


12.6 File Type Table 


A File Type Table defines the attributes of one or more types of 
file. Each type of file contains one entry in the table. See the 
“HP-71 Code Examples" chapter for a listing of the File Type Table 
that defines the file types recognized by the HP-71 mainframe. 


The entry defines the name, file type mumbers, and types of 
protection which are associated with that type of file. The entry 
also defines the create code and copy code for the file, which 
describes in a very general way the structure of the file. These 
codes determine the presence or absence of an implementation field 
following the file header when the file is in memory, and determine 
whether the mainframe can copy the file into or out of the HP-71 
without the aid of a LEX file. 


The File Type Table terminates with an FF byte. 


FILE TYPE TABLE FORMAT 


Size ; 
Field (nibs) Meaning 
Create code 1 0: Normal mainframe file structure 


(BASIC, BIN, LEX, KEY, etc) 
File length measured in nibs, 
arbitrary format, subheaders’ 
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Copy code 


allowed 


: DATA file structure; up to 65535 


fixed length records of up to 
65535 bytes each; subheaders not 
allowed; file is initialized to 
FF’s 


: SDATA file structure; records are 


fixed length, 8 bytes each; file 
initialized to zeros; subheaders 
not allowed 


: TEXT file structure; records are 


variable number of bytes; file 
initialized to FF’ Ss} subheaders 
are not allowed 


: Special handler routine required 


to create this file; system will 
issue pCRT=8 poll 


: Normal mainframe file structure; 


File can be copied into or out of 
HP-71 without aid from LEX file; 
Implementation Field contains 
file length on external copy, 

but is not present after file 
header when file is in memory 


: DATA file structure; file can be 


copied into or out Of HP-71 with 
no aid from LEX file; on external 
copy, the Implementation Field 
contains number of records and 
record length, and it is present 
immediately after file header 
when file is in memory 


: SDATA file structure; file can be 


copied into or out of HP-71 with 
no ald from LEX file; on external 
copy, the Implementation Field 
contains number of records, but 
is not present after file header 
when file is in memory 


: TEXT file structure; file can be 


copied into or out Of HP-71 with 
no aid from LEX file; on external 
copy, the Implenentation Field is 
zero, and it is not present after 
file header when file is in 
memory 


: Special copy routine is required 


to copy file to or from HP- ols 
system will issue PUCRD8 poll: 
Implementation Field is present 
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after file header when file is 
in memory 
Execution code 1 1: File is executable (can be run) 
0: File is not executable 


Offset to Data 2 Offset in nibs from start of file 
chain length field (in file header) 
to start of file data, skipping the 
Implementation Field, if present 
after file header (see Copy code, 
above), and also skipping the 
subheader (if any); this value is 
used to calculate the subheader 
length, when present 


File type name 10 5 character ASCII name of the file 
type as displayed by CAT; padded 
with trailing blanks 


Number of types 1 Number of file type numbers used 
by this type of file to indicate 
SECURE or PRIVATE states, if 
allowed; up to four type numbers 


may be used: 

Type 

Number Protection Indicated 

First No protection 

Second SECURE 

Third PRIVATE 

Fourth SECURE and PRIVATE 
LIF type numbers 4 4 nibbles for each LIF type number 


indicated by the previous field 


12.7 Keycode Table 


The mainframe contains a table (KEYCOD) which specifies the default 
meaning of each key on the keyboard. This table is arranged as 
three sets of 56 bytes. The first set describes the unshifted 
function of the keys. The second set describes the f-shifted 
function of the keys. The third set describes the g-shifted 
function of the keys. Within each set, the keys are in the order 
QUERTY ... 0.,+ which is the same order as used in DEF KEY. 


The byte in the table specifies the meaning of the key as follows: 
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0 - 31 #£Special code 
32 - 127 ASCII letter with same code 
128 - 255 Typing aid key of keyword with same code 
The codes in range 0 - 31 are for keys that do not have a simple 
ASCII letter or a typing aid associated with them. Such keys 
require special processing. 


Code Symbol Function 


0 kc-CHR Delete char 

1 kceLC Lowercase toggle 

2 kc1/R Insert/Replace toggle 
3 KcUSER User mode toggle 

4 kc-LIN Delete through EOL 

5 KcFLFT Cursor far left 

6 kKcFRT Cursor far right 

7 KCBKSP Backspace 

8 KCLFT Cursor left 

9 kcRT Cursor right 


10 kcCTRL CIRL prefix 
11 kcVIEW VIEW prefix 
le kKcUSEX 1USER 

13 kcEOL Endline 

14 KcATIN ATIN 

15 kKCRUN RUN 

16 kcCONT CONT 

17 kcSST SST 

18 kcUP Up 

19 kKcDOUN Down 

20 kcTOP Top 

21 KcBOT Bottom 


22 kcGON g-ON 

23 kcCALC CALC 

24 kKcOFF OFF 

25 kcLAST Command stack 

26 KcLERR Last error message 
27 Reserved 

28 Reserved 

29 Reserved 

30 Reserved 

31 Reserved 


12.8 Language Tables 
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12.8.1 MAINT and XROMO1 


Several mainframe tables are used by the lexical analyzer, parse, 
execution and decompile drivers. These tables are used to identify 
BASIC keywords, functions and system commands and assign a unique 
internal token number. These tables comprise a mainframe LEX file, 
following the format of LEX files, as explained under LEX files in 
the "Language Extension and Binary Files" chapter. This table is 
called: MAINT. 


Due to the large mumber of built-in keywords, one internal LEX 
"file" is not large enough. A second internal LEX File: XROMO1 
with LEX 1D #01, holds the overflow of built-in keywords. Both LEX 
“files” contain a SPEED table, main table, and text table. The 
internal LEX "files" reside within system ROM and are not part of 
the RAM file chain. 


Keywords contained in XROMO1 are less frequently used keywords or 
keywords that are not programmable. The tokenized length of XROM01 
keywords is 2 bytes longer than keywords contained in MAINT. 


12.8.2 Message Table 


Details on message table construction are found in the “Message 
Handling” chapter. 


12.8.3 Lexical Type Table 


The lexical type table (LXTYPT) describes a character type and 
ASCII or internal representation (token) for each character. 


For each character in the ASCII range, 20-7E, is an entry: 


TYPE - Categorize character 
0 - Miscellaneous 
1 - Digit, Decimal Point 
2 - Letter A - Z 
3 - Relational Character < => ? 
1 nibble 


CHARACTER - ASCII representation or internal token or character 
2 nibbles, backwards 


This table resides in mainframe ONLY. 
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12.8.4 FG Table 
The "FG Table" 
shifts. 


seven input 


Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 


bits are as follows: 


OrPNMWF aA 


The ghost bit is used to 


Key was still down. 


The lower 4 bits are stored between key scans in the display RAM 


F key currently down 
G key currently down 
Some non-FG key newly down (X) 
g anmunciator on 
f annunciator on 
Ghost bit (*) 

F or G key was down during last key scan (h) 


defines a state machine 
The state machine has 7 input bits and 4 output bits. The 


for processing 


nibble that contains the f and g annunciators. 


do not 


the table which gives 


affect the display since 
LCD to correspond to these bits. 


stored back into display memory. 
are clear then all bits should be cleared 


or g modified key codes in the buffer. 


FGX 
000 


001 
010 
O11 
100 
101 
110 


111 


gf*n 
0000 


0000 
0000 
1001 
1011 
0101 
Olid 
0000 


0000 


gf*h gf*n gf*h gf*h 


0001 


0000: 2.3% 
0000! sea 
O00) 25. 
AOLE. ares 
OO08 ens 
OTit-. 
0000 . 


0000 ... 


0010 0011 0100 
..- 0100 
. 0100 
. 1001 
ae: LOL 
. 0001 
Olt 
. 9000 


. 0000 


If bit 4 


gf*h gf*h 


0101 
0100 
0100 
1001 
1011 
6101 
0111 
0000 


0000 


0110 
0000 
0100 
1001 
1011 
0111 
0111 
0000 


0000 
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gf*nh 
0111 


0000 
0100 
1001 
1011 
0111 
0111 
0000 


0000 


indicate that an f or g shift has been 
performed but the annunciator was left on because the corresponding 


f and g 


The lower two bits 
there are no annunciators in the 
These 7 bits form an offset into 


the new “state' of the state machine and is 


is set but bits 5 and 6 


following putting the f 


gf*h 
1000 


1000 
1000 
0001 
1011 
0101 
Q111 
0000 


0000 


gfi*h 
1001 


1000 
1000 
1001 
1011 
0101 
Git 
0000 


0000 


gf*h 
1010 


0000 
1000 
1011 
1011 
0101 
0111 
0000 


0000 


gf*h gf*n 
1011 1100 


0000: boas 
1000 . 
ROTI 4 eee 
LOT 1: 440s 
GAOT: pocse 
2 6G eae 
0000 ... 


0000 . 
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12.9 LEX Entry Buffer 


Tne LEX entry buffer (bLEX) resides in the main system RAM 
following the statement buffer. It is a list of pointers to 
language extension files in RAM and ROM and to the 2 built-in 
language “files” within the mainframe. Associated with each LEX 
file is the range of entry mumbers within the LEX file. 


For each LEX file entry: 


+------- $e geen ee ee + $n eee + 
| ID# | Low Entry# | High Entry# | LEX File MAIN Table Start | 
$o------ $—~ $a eee en $e ee + + 

2 2 2 5 nibs 


The range of LEX IDs is 0 to 255. The range of entry numbers 
within a LEX file is 0 to 255. Several LEX files may have the same 
LEX ID, but different ranges of entry mumbers. There is a separate 
entry for each separate LEX file. 


The LEX entry buffer is recreated every time the configuration of 
the machine may change or a LEX file is added or removed. This 
includes coldstart, warmstart, power on, module pulled, CLAIM, 
COPY, FREE and PURGE. 


12.9.1 Search Order of LEX Files 


The order in which LEX files are accessed during parsing, polling, 
and message handling is determined by the order in which the LEX 
files are registered in the LEX LEX Entry Buffer. In general, this 
order is determined by the normal file search order (see the "File 
System" chapter) by which the LEX files present in memory are found 
during system startup. First, the Main: file chain is searched for 
LEX files. The first LEX ID# and entry# range is read from the 
file. The main table address is calculated, based on the presence 
or absence of the optional speed table. The LEX ID#, entry# range 
and main table start address are added to the LEX entry buffer. 
Next, any secondary LEX tables chained internally within the LEX 
file are then added to the buffer in a similar manner. 


The file chains in ROMs and Independent RAMs are searched next, in 
port order (Port 0 through Port 5). Each LEX file encountered in 
these chains is added to the LEX entry buffer. 


The two final buffer entries are the built-in XROM and. the 


mainframe main table. The built-in XROM LEX ID# is 01, witha 
token range of 0 to 95. The mainframe LEX ID# is 00, with a token 
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range of 0 to 255. LEX ID#0O is useful for detecting the end of 
the buffer when searching for a particular external keyword or 
function. 


12.9.2 Usage 


The LEX entry buffer is used by the lexical analyzer when scanning 
for valid keywords, functions and commands. This allows the BASIC 
language and system command set to be extended and overridden. 


This buffer is also used determine addresses to decompile and 
execute external keywords and functions, and display external error 
messages. 


12.10 Startup and Immediate Execute Key Buffers 


These tuo buffers are used to hold a string of characters which 
will later be parsed and executed. The STARTUP buffer (bSTART) is 
set up by the STARTUP command and is parsed and executed when the 
user turns the machine on with the ON/Attention key. The immediate 
execute key buffer (bDIEXKY) is created whenever a colon-type key 
definition is executed. This buffer is automatically deleted at 
MAINLP since it no longer has meaning at that point. 


The string stored in these buffers is always terminated with a CR 
(ASCII 13). This is required since the buffers will be parsed. 


12.11 Statistic Buffer 


The Statistic Buffer is a scratch buffer used during summary 
statistics accumulation in ADD and DROP. 


12.12 System Flags 


A flag is a variable that can have one of only two possible states, 
set and clear. The numeric values 1 and 0 are assigned to these 
states, respectively. Flags are generally used to control the flow 
of a program and to record the status of certain modes. Flags are 
global variables; flag settings remain in effect before, during, 
and after subprogam execution. 


There are 64 system flags (numbered -64 to -1) and 64 user flags 
(numbered 0 to 63). These flags are stored in 128 consecutive bits 
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starting at address SYSFLG. (See the diagram in the Memory 
Structure description. ) 


The current system flag assignments are documented in the "HP-71 
Resource Allocation" chapter. 


12.12.1 Display Format Information 


Display format information is contained in the system flags. 
System flags -13,-14 indicate the current display mode: 


0 = STD 2 = SCI 
1 = FIX 3 = ENG 


System flags -17 through -20 contain the number of digits in 
hexadecimal for the current display setting, i.e. "“n" in FIX n, 
SCI n, ENG n. 


12.13 Traps 


As used here, a trap is a one-nibble mumeric code (0 to F in hex) 
which determines what action, out of a memu of possible actions, is 
to be taken when a corresponding flag is set by the system (i.e. 
by other than an SFLAG statement or FLAG function). 


Traps are implemented only for the arithmetic exception flags 
(inexact, underflow, overflow, divide-by-zero, invalid operation). 
Associated with each of these five exceptions is an action (or 
trap) to be taken whenever that exception occurs. There are, at 
present, three categories of trap actions and they are denoted by 
trap values 0, 1 and 2. The trap values and their associated trap 
actions are given below: 


TRAP MENU 


Trap Value Trap Action 


0 Halts and displays an error message 
1 Returns the traditional finite default values 
2 Returns the default values specified by the 


IEEE Standard (see the Default Values Table) 
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DEFAULT VALUES TABLE 


EXCEPTION TRAP VALUE 
a 2 
INX rounded 12 digit result rounded 12 digit result 
UNE 0 denormalized result 
OVF +-maxreal +-infinity 


(9, 99999999999e499) 
DVZ +-maxreal +-infinity 


IVL 070=1, else halt 0°0#1,else NaN 


If present, an ON ERROR statement overrides the trap values for all 
exceptions except INX. OFF ERROR will return control back to the 
trap action settings. The DEFAULT statement sets the traps as 
follows: 


OFF trap values for UNF,OVF,DVZ,IVL set to 0 
trap value for INX set to 1 (same as 2) 


ON trap values for INX,UNF,OVF,DVZ,IVL set to 1 


EXTEND trap values for INX,UNF,OVF,DVZ set to 2 
trap value for IVL set to l 
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This chapter discusses the format in which the HP-71 represents 
mumeric or string data in memory or in the CPi registers. 


13.1 Data Types 


The HP-71 supports seven data types. The data type of a variable 
is identified by looking at the variable register (explained in the 
section on variable chains, below). Real scalar numbers are stored 
directly into the variable register, and can be identified by the 
low-order nibble, which falls in the range 0-9 (and is interpreted 
as the low-order nibble of the exponent field). if the low-order 
nibble of avariable register is anything else, the register is 
serving aS a pointer to one of the other six data types: 


A Integer (simple or array) 
B Real short (simple or array) 
Cc Real array 

D Complex Short (simple or array) 
E Complex (simple or array) 
F 


String (simple or array) 


13.2 Registers 


The following section will discuss the representation of variables 
in memory. This section contains an introduction to the 
representation of numbers in the CPU; that topic is treated more 
thoroughly in the section on mathematical operands in this chapter. 


13.2.1 Numbers in CPU Registers 


When amumber is brought into aCPU register, the process of 
recalling it (finding it in memory and bringing it into the CPU by 
way of the mathstack) will convert it into one (for real data 
types) or two (for complex data types) numbers ina _ standard 
representation as follows: 
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15 0 
to-$---------- ~~ +e $----- + 
iS] Mantissa | Exp | 
$—e-- ee ee $---~- + 
i le 2 16 nibbles 


with the low-order digits in the low-order nibbles of the 
register: 


15 0 
Hm hn nm em mm rn nr nr rrr ree +S + 
PSy ME es ee i ee Ses, MO PES E01 
+--+ ee +------ + 
1 12 3 16 nibbles 


The mantissa is unsigned with a separate field (the S-field) 
representing the sign (0 = +, 9 = -}. The Exponent is represented 
in 10’s complement form. This representation is the normal entry 
condition for all routines which expect a floating-point 
argument(s) in the 12-digit forn. 


Many of the computation algorithms work with a 15-digit form so 
that intermediate results can be computed and retained with greater 
accuracy. Typically, when implementing a function, you will take 
the parameters (which are in 12-digit form), expand them into the 
15-digit form, call whatever computation routines are necessary, 
and round the 15-digit result back into 12 digits. 


The 15-digit form occupies two registers as follows: 


15 0 
$e bee ee ee ee + 
| | Mantissa | 
am tan rr re ee eee + 
1 15 16 nibbles 
15 0 
$-4---- + +—----~----- + 
{S| | Exp | 
+-4---- - ee + $—------- --- + 
1 10 5 16 nibbles 


where the exponent has been extended (including sign-extend if 
negative) to five digits. 


The published entry and exit conditions for various numerical 
algorithms state what registers are expected to contain which parts 
of the argument(s). 
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13.2.2 Strings in CPU Registers 


Unlike numbers, the actual values of strings are not usually 
recalled into CPU registers - they generally don’t fit. The 
procedure for accessing a string is to place the string on the 
Mathstack by evaluating an expression and then to “pop” its 
descriptor (mainframe POP1S routine), which provides a pointer and 
a character count. 


13.3 Variables 


Every variable has a corresponding variable register that contains 
either the actual value (for simple variable types) or a reference 
that points to the value (for complex, arrays, and strings). 
Variables (i.e., their corresponding registers) can be created 
either explicitly (DIM, INTEGER, REAL statements) or implicitly (by 
storing into a non-existent variable or array element) and will 
continue to exist until wiped out by a DESTROY <var name> or 
DESTROY ALL. 


For speed of reference, each variable register is contained in one 
of 26 lists ("chains"); the alphabetic part of the variable name 
determines which chain. Operating system RAM contains a list of 
pointers to the various chains, the format of which is described 
below. 


13.3.1 Variable Chains 


There are 26 reserved pointers to the variable chains A-Z. This 
list of 7 nibble pointers begins at 2F5BE. The first 2 nibbles 
indicate the number of variables in the variable chain. The next 5 
nibddles (Chain Head Pointer) give the absolute address of the first 
variable in the chain. 
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[2F5BE] 
Reserved Pointers A-Variable Chain 
2 5 3 16 
$--- $+ + + + +------- +------------+---+ + 
A | # | addr to 1st |----------- >| label | Var register | 
Hmm a he ne + +—------- 4-H + 
B | # | addr to ist | | | | 
+o $e + $--- ee + 
c | # | addr to ist | | | | 
+o 4-H + $e een $e oe ee + 
| | 
| | | 
| v | 
$e $e ee ee + 
vA | # | addr to ist | 
$e man pn nn ee ee + 


The A-variable chain will contain the variable registers for all 
variables whose names begin with A (A, A7, A$, A5$, etc.). 
Variables in each chain are listed in the order in which they were 
created; the chain is not sorted in any way. 


A particular variable chain contains a 19 nibble entry for each 
variable beginning with that letter. The first 3 nibbles are the 
variable label, and the next 16 are the variable register. 


The first two nibbles of the label field are the ASCII code for the 
letter associated with the variable. An uppercase letter indicates 
a numeric variable, lowercase a string variable. That is, an AND 
of the ASCII code and the constant 20H will produce 0 for a mumeric 
variable and nonzero for a string variable. The third nibble is 
the digit+1 of an alpha-digit variable, 0 for alpha variables. 


The data space for variables is allocated, as required, between the 
RAM pointers ACTIVE and CALSTK. 


In the discussion below it is important to keep in mind that when 
memory is read into a register, the CPU places the lowest addressed 
nibble in the least significant nibble of the register. Thus, in 
the diagrams below, the nibbles lowest in memory are shown on the 
right side of the register. The nibbles in the register are 
numbered from 15 to 0 going most to least significant. 


Tf a recall is attempted ona non-existent variable, a value of 


zero is returned if the variable is numeric and mll if the 
variable is string. The variable is not created at this time. 
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13.3.2 Variable Internal Representation 

Nibble 0 of the variable register is the Data Type nibble and 
contains the data type code, except for indirect variables (see 
below). The following information is encoded in nibble 0: 


0-9 Real scalar (default) 


A Integer (simple or array) 
B Real short (simple or array) 
C Real array 
D Complex Short (simple or array) 
E Complex (simple or array) 
F String (simple or array) 
If the variable is default type (Real scalar), the variable 


register contains the actual value of the variable, and nibble 0 is 
the low-order digit of the exponent. In all other cases, the 
nibbles in the variable register mean the following: 


Nibble 1 indicates the dimension. If the variable is a scalar, its 
dimension is 0. If the variable is an array, the dimension is 
either 1 or 2. The dimension of string arrays must be 1. A value 
of F or E in this nibble identifies an indirect variable, explained 
below. 


The meaning of the remaining nibbles depends on whether the 
variable is scalar (that is, a simple variable), array or string. 


13.3.2.1 Scalar Numeric Variables 


A scalar variable is a simple variable, as opposed to an array. 
For scalar variables of type integer and real short, the value of 
the variable is contained in part of the variable register. For 
scalar complex variables, nibbles 11-15 are a_ relative pointer to 
the data. The exact representation is illustrated graphically 
below. 


15 210 
Se es +—--~-~ + 
Real [s| Mantissa | Exp | 
$a pw we wm nn = eee nn we $—----- + 
1 12 3 
15 = 7 210 
Real ee ae $e $e ee e - ~ +—-4-4 
Short //\ Exp |S| Mantissa |0|BI 
et ee $$ -- ee $-4-4+ 
5 3 1 5 11 
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e a 210 
~------ $$ ---- - - - - - - - - + 4 + 

Integer W118 Mantissa |Ol|A| 
~------ 4-4 —--- = - - - + = + - + 

8 1 5 dst 


S field of Integer is packed: 


Bits 0-2 Exponent if less than 6. 
Value of 6 means Inf. 
Value of 7 means NaN. 
Bits 3 Sign. 


rad i 210 


ee en -~—4+—4 


Complex +--Rointer|/////////1///1101 8 


wee ew He we we ee ee ee +—-4+—-4 


+--+ + + + +—----- + | 


|S] Real Pt Mantissa | Exp |<-+ 


$$ ee ae ne we ee ee $e oe we + 


[S| Imag Pt Mantissa | Exp | 


$node ew nnn ee we we ee ee + 


1 le 2 


15 a 210 
Complex $a nnn +4 +--+ ++ sa4e% 


Short *-1Pointer |//////////////\010) 


| too eH $e +—+-4+ 


| Exp IS| Real Mant |[<-+ 


+----- De + 
| Exp [S| Imag Mant | 
$—----- +-+4------— ~~ - + 
3 1 5 
13.3.2.2 Numeric Arrays 


For arrays, the information contained in the variable register is 
referred to as the "dope vector”. 


Nibble 2 of the variable register indicates the Base Option of 0 or 


1. If this variable is the current STAT array, the high bit of 
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nibble 2 is set. A STAT array always has Base 0 anda different 
format for the remaining information in the variable register (see 
STAT array discussion below). 


The next 8 nibbles give the limits of each dimension, where the 
first 4 are the second dimension (meaningless if one-dimensional) 
and the next 4 are the first dimension. The limit in each 
dimension is 65535. 


Nibbles 11-15 are a relative pointer to the start of the array 
data. To calculate the actual data address subtract the relative 
pointer value from the address of the relative pointer. The 
subroutine RECADR is useful for this calculation. 


15 11 210 
Real tone $m - +$—-+-4-4+ 
Array +-|Pointer| Dim Limits |b|#/C| 
| #------- $e ea --- += -- $-4-4+-+4+ 
| 5 8 111 
he + 
| 
pa le a me i ca a es ee eee ae hese + | 
is] Mantissa | Exp |<-+ 
$- 4-2 ---- + $----- + 
Is! Mantissa | Exp | 
$-¢-------- - -- - -- = + +----- + 
s| Mantissa | Exp | 
$m pen wn $----- + 
1 le. 3 
15 11 210 
$------- $+ ~ -- = = +—-+-+-+ 
Real +-|Pointer| Dim Limits |b/#/Bl 
Snort ,. foase4 Se Foren nner en +-+-+-+ 
Array 5 8 td 
| 
$a een nn a + 
| 
$uenne $a penn wn ee ee + | 
| Exp [S| Mantissa |<-+ 
+----- 4+ —-4----- + 
| Exp |S| Mantissa | 
+----- $—-4------------ + 
{| Exp IS] Mantissa | 
$----- a + 
3 1 5 
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15 11 210 

Integer tatH sae oree eee +-+-+—4+ 
Array +-|Pointer| Dim Limits |bI#lAl 
| +-------------------- +-4+-4-4 


| 5 8 111 


chorea stl + | 
IS| Mantissa |<-+ 
$-4—----- +--+ ++ + 
[S| Mantissa | 
re + 
IS} Mantissa | 
$-$--- ~~~ - + -- + 


i, i. 20 


15 11 210 

Complex Pe as foes ese see ss titan eet 
Shor t +-|Pointer| Dim Limits |b|#]|DI 
Array | +------- $e een ----- +—-+-+4+-+4+ 
5 8 £.- bed 


+$—-—---- 4-+------------ + | 
| Exp |S] Re Mant | <-+ 
$----- 4-4------------ + 
| Exp |S] Im Mant | 
+----- +—-4--------- = + 
| Exp [S|] Re Mant | 
+—----- +-4+-------~+---- + 
| Exp [S| Im Mant | 
+----- +-+------------ + 
| Exp |S{| Re Mant | 
+----- +— $a + + 


| Exp |S] Im Mant | 


+----- $—¢—------------ + 
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15 11 210 
Complex fot eSSee terre sa ese tots 
Array +--|Pointer| Dim Limits |b|#[E| 

J, +------- +----- een n +-+-4-4 
| 5 8 111 
| 
$2 oe ee ee + 
| 
$-4----------- ~~~ +~----- + | 

IS] Real Pt Mantissa | Exp |<-+ 

4-4 ----- - -- = - +----- + 

|S| Imag Pt Mantissa | Exp | 

$-$e + + +----- + 

|S] Real Pt Mantissa | Exp | 

$-$--- = - +--+ a + 

{S| Imag Pt Mantissa | Exp | 

$—4 22 - ~~ + + + +—----- + 

{S| Real Pt Mantissa | Exp | 

$e te ee e+ tome ee + 

IS| Imag Pt Mantissa | Exp | 

$$ 2 - + $e en ne + 

1 le . 3 


13.3.2.3 Statistical (STAT) Array 


A statistical array is a specialized one-dimensional real array 
used to accumulate and store summary statistics for a data set. It 
is set up by the STAT statement. The chapter on "Numeric 
Computation Algorithms” discusses the elements of a statistical 
array and their meaning. 


A statistical array has base option 0 and the high bit of nibble 2 
igs set. Nibble 2 therefore has the value 8. 


Nibble 3 gives the number of variables in the data set represented 
by the statistical array. If a linear regression model has been 
specified by the LR statement, nibbles 4 and 5 give, respectively, 
the independent and dependent variable mumbers. Otherwise, these 
nibbles have value zero. The maximum value for each of nibbles 3-5 
is 15. 

Nibble 6 is not used. 

The next 4 nibbles give the dimension limit of the statistical 
array. The maximum value is 65535, although the STAT statement 


will not dimension a statistical array to a dimension greater than 
135, 
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Nibbles 11-15 are a relative pointer to the start of the array 
data. 


15 1110 76543210 


Statistical  +-------+------+-+-+-+-+-+-+-+ 
Array +-|Pointer|Dim Lm| [DII/IV/8l1ICc! 
| 4-------4----- = 4-4-4 4-4 -4-4-4 
| 5 4 EO ee 
peewee ee eee + 
| 
$-4$--------- +--+ +--+ +----- + | 
1S] Mantissa | Exp |<-+ 
$- $2 + $----- + 
Is] Mantissa | Exp | 
$4 $—----- + 
1s] Mantissa | Exp | 
$$ ee ee +----- + 
1 le. 3 


13.3.2.4 String Variables 


String variables are allocated when dimensioned or assigned during 
program execution. The data type is F. The variable register 
always contains a pointer to the string contents. A value of 
“mull” is returned whenever a nonexistent string variable is 
referenced. 


The value of nibble 1 in the variable register indicates whether 
the string variable is scalar (value 0) or anarray (value 1). 
Note that string arrays can have only one dimension. 


As with mumeric arrays, nibble 2 indicates the base option for a 
string array. This number is meaningless for scalar strings (where 
nibble 1 is 0). 


Nibbles 3-6 contain the maximum string length. Maximum value is 
65535. 


Nibbles 7-10 contain the string dimension limit (meaningless if not 
an array). Maximum value is 65535. 


Nibbles 11-15 are a relative pointer to the start of the string (or 
string array) data. 
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2 11 7 210 
o------- ee ee ee 
String .-|Pointer|/////|Maxlen| /101F| 
| +------- e=—Ss5 tiaso= = gn4eee4 
| 5 4 4 111 
| 
$a a ne ww ww ee ee ee eee + 
| 
$----- + | 
| S |<--+ 
) t | 
a | 
}; i | 
if n | 
i g | 
+----- + 
15 11 7 210 
String $eere-=- $----- $o----- $—-+-4-4 
Array +-|Pointer| Dim |Maxlen|bl1IF! 
| +------- Ponnnn $m ee +-4-4-4+ 
7 5 4 4 111 
nn an a + 
| 
$----- + | 
} S |<--+ 
} t | 
} r | 
Boke 4 
|} n | 
| g | 
+oe--- + 
{| s | 
} tf 
| r | 
tae 
} n | 
I g | 
$----- + 
1 s | 
; t | 
| r | 
| i | 
} n | 
lg | 
$----- + 
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13.3.3 Indirect Variables 


Indirect variables are used for parameter passing in subprograns. 
The data register for the variable is used as an indirect address 
to the actual variable. Note that if a variable which has been 
passed to a subprogram is itself an indirect variable, the new 
pointer will not be linked indirectly through that variable but 
will point to the originally allocated variable register. 


fC ! 
ze bi V 
WII Address Fix | Data 
9 5 11 


If nibble 1 is F, it indicates that nibbles 2-6 are an absolute 
pointer to the data of the variable. Nibble 0 is the data type: 


-- Integer 

-- Real Short 

-- Real 

Complex Short 
-- Complex 

-- String 


m~am™mOoO wD P 
' 
' 


For a string variable, nibble 0 is F and nibble 1 is F. The 
address field is the absolute address of the string. The maximum 
length of the string is kept in nibbles 7-10. 


$m ae ew ene ee ee + 
| | 
15 10 7 6 | 210 V 
+----- +------- $e--------- +-+-+ + --- nn + 
| |Max Len| Address |FIFI | String | 
+----- t------- to-- $-+-4+ $n en eee + 
4 5 dk 


For an array, nibble 1 is E and nibbles 2-6 hold an absolute 
pointer to the descriptor for the array. Nibble 0 is meaningless. 
To find the type of the array, it is necessary to follow the 
pointer to the variable register and look at the type specified 
there. 
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$e - +--+ + + 
: | | 
= 7 6 | 210 V 
-----+------ em ha a HH + $------- +--+ ~~ + 
WITLI Address |E]/?| | Variable register] 
wee ee een ee + + +—-+—4 ww ee a e+ 
9 5 11 


13.3.4 Accessing Variables from Binary Prograns 


13.3.4.1 Finding the Address of a Variable 


The ADDRSS (and ADRS40} utility is useful for seaching through a 
variable chain to find the address of a variable. This is a low 
level utility that does not handle special cases such as indirect 
variables. If the variable is not found it merely indicates that 
condition. 


13.3.4.2 Recalling a Variable 


The following procedure can be employed to recall variables by 
name: 


Have in memory a stream in the form of a tokenized 
variable followed by a comma or EOL token. 

Point DO at this stream. 

Call EXPEXC to evaluate this expression. 

Pop the value off the math stack. 


This procedure will return a value of zero for non-existent numeric 
variables and mull string for non-existent string variables. 


13.3.4.3 Storing into a Variable 


The following procedure can be employed to store into variables by 
name: Have in memory a stream in the form of a tokenized variable 
followed by a comma or EOL token. For example: A$ EOL is tokenized 
D2 14 OF and Q9(1,2) EOL is tokenized 13 23 D7 96 15 2 0F. Point 
DO at this stream. Call EXPEXC tye evaluate this expression. Call 
DEST to save the address to store into in statement scratch. Get 
the value to be stored on the math stack by evaluating an 
expression or by other means. Call STORE to store this value into 
the variable. This will create the variable if necessary. If 
calling STORE froma binary program, be sure to zero S-R1-2 to 
prevent tracing. 
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13.3.4.4 Creating Variables and Arrays 


The methods described above are a way of accessing variables 
without dealing with any messy problems such as what if the 
variable you are recalling or storing into doesn’t exist. The 
drawback of these methods is that no control is possible in 
selecting nondefault attributes for the variables/arrays when they 
are created -- strings are 32 characters, arrays have an upper 
bound of 10 in any dimension and numeric variables are of type 
real. If sizes or types other than these defaults are required, 


the assembly programmer must explicitly create them. The following 
procedure will do this. 


Set S-Ri-3 to the data type (not necessary if string) 


Integer 

Real Short 
Real 

Complex Short 
Complex 


mow pS 
non uw non 


Point DO at a token stream in the format of a DIM 
statement. The following are examples: 


Description Tokenization 
A EOL 14 OF 
A(2) EOL D7 14: 23°-0F 
B8(3,4) EOL D7 86 24 33 43 OF 
a$(6) EOL D7 D2 14 63 OF 
B$(80] EOL D2 24 2F C008 OF 
C$(6) [80] EOL D7 D2 34 63 2F C008 OF 
GOSBVL =PREP 
GOSBVL =DPVCTR 
R1=C 
Iff creating a COMPLEX or COMPLEX SHORT variable 
* then set status bit 0 (ST=1 0). 
GOSBVL =SPACE 
GOSBVL =DMNSN 


13.3.4.5 Destroying Variables and Arrays 


The following method can be used by the assembly language 
programmer to destroy variables and arrays: 


Point DO at the tokenized stream for the desired 
variable. 
Call DSTRY* to destroy that variable. 
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13.4 Mathematical ‘Operands 


Floating point arguments sent to the math routines from the system 
generally come off the stack. They are the 12-digit numbers that 
are visible to the external world and are referred to synonymously 
in the documentation as 12-forms or packed numbers. This is to 
distinguish them from the 15-digit numbers used internally in the 
math routines. 


In order to deliver accurate final results to the system the math 
routines do intermediate calculations with 15-digit mantissas and 
5-digit exponents. These internal values are referred to as 
15-forms or umpacked numbers. 


A typical procedure for amath operation is to pop the 12-fornm 
argument from the stack into CPU register A, then call SPLITA to 
unpack the number into registers A and B. Now the math routine 
will use this 15-form input to obtain a 15-form result. This 
accurate 15-form result can then serve as an input to another math 
routine, or as a final result to be packed by uRES12 into an 
external 12-form for the system. 


13.4.1 Packed Representation (12-form) 


13.4.1.1 Normal Values 


Let x stand for a floating point value with sign S, 12-digit 
mantissa MMM...M, and 3-digit exponent EEE . Then x is represented 
as 

1 12 3 


$- 4-2 - oe +—---+ 
[S|MMM ... MIEEE] 
$$ - ee ee +---+ 
where 
/ 0 for "+" 
S =< 
\ 9 for tem 


MM...M = the 12-digit BCD mantissa with implied 
decimal point after the leading digit, 
(i.e. 1<= mant <10 ) 
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and 
EEE = the 3-digit BCD exponent in 10°s complement 
notation. (+0 and -0 are represented with an 
exponent of 0) 
Examples 
+ $e +--~-+ 
1) +10 --> {0} 100000006000} 001) 
0 +--+ 
$— $e ee +---+ 
2) -.21 --> | 9] 210000000000| 399] 
$m he we ww we +~---+ 
$e $n eee ee +---+ 
$e tee +—-—--+ 


13.4.1.2 Extended Values 


The values Inf and NaN are distinguished by the hexadecimal digit F 
in the XS field of the register. Denormalized 12-forms are 
allowed, but must have an exponent of -499. 


Examples 

+$-4------------ +~---+ 
1) 0.0051E-499 --> |0/000510000000| 501] 
$$ - - - - - +—---—+ 
toto enn ene $---+ 
2) ~Inf --> |9| unspecified] Foo| 
t-t---------- +---+ 
t-¢----------- + $--=+4+ 
3) NaN --> |S|22222272722222| Feel 
Hot ee a ee +---+ 

where ## is non-zero. 

+—-$¢~---- ~~ +-~-+ 

a) HP-71 Quiet NaN --> |S{mmmm000000001 F01] 

4+—-+¢------------ +—---+ 


where m=msg# 
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$—4- ~~ ee + 


b) HP-71 Sig. NaN --> |$10000000000001 F021 


+-+-2--- +--+ +—---+ 


13.4.2 Umpacked representation (15-form) 


For greater precision during calculations, 12-digit mumeric 
parameter values (called "12-forms") are expanded or “unpacked” 
into a form that has a 15-digit mantissa anda 5- digit exponent 
field. This form is called a "15-forn." 


A 15-digit form is represented in the CPU as a register pair (A,B) 
or (C,D). For example, the pair (A,B) has the following format: 


ee $----- + 
A = pS eset eee 
4 $e a ee + 
B = 2 Mennneeeneene nee 
$4 ee ne + 


where E is a 5-digit 10’s complement exponent and B contains a 
15-digit mantissa. 


The HP-71 math routines assume that unpacked numbers are normalized 
(denormalized 12-forms are normalized by routine SPLITA). The 
exceptional values Inf and NaN are indicated by the exponent field 
alone. Ordinarily, all five digits in the exponent field are BCD. 
However, if nibble 2 (the XS field) is F, then the number is Inf or 
NaN; nibbles 0 and 1 then distinguish between Inf and the two types 
of NaNs (signaling and quiet). 
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14.1 Standard Math Inputs and Qutputs 


The HP-71 standard internal math routines accept 15-forms as inputs 
and deliver 15-forms as outputs (see sec on Mathematical Operands 
in chapter on “Internal Data Representation’). The routine names 
usually end with "15". For example, SQR15, IN15, TAN15, AD2-15, 
etc. 


For single argument functions (e.g. SQR15, LN15) the argument x is 
a 15-form in the CPU registers A and B (denoted here as. the 
register pair (A,B)). Two argument functions (e.g. AD2-15, 
MP2-15) have their 15-form arguments in (A,B) and (C,D), with the 
first argument generally in (C,D). That is, x/y calls DV2-15 with 
(A,B)=y and (C,D)=x. The only other standard input is that DEC 
MODE must be set before entering a math routine. 


The standard math output is a 15-form TRUNCATED (as opposed to 
ROUNDED) result in (A,B) along with other information in the 
harduare status bits SB (sticky bit) and XM (external module 
missing). Whenever SB=0 on exit, that implies that the 15-form 
result in (A,B) represents the mathematical function result 
EXACTLY. For example, 1/2 is 0.5 and that is precisely the result 
delivered by DV2-15, while 1/3 can not be represented exactly in 15 
digits so it must have SB=1 on exit. 


In writing mathematical routines, keep in mind that in some cases 
it is not practical to detect exactness, and in these cases SB 
should be set to 1. With the function y°x, for example, it would 
be hopeless to try to detect all exact values (e.g. 39.0625 * .25 
= 2.5 exactly) and so in these cases SB should be set to 1. 
Therefore, whenever SB=0 the result is expected to be exact, while 
if SB=1 on exit then this indicates that the result COULD be 
inexact. 


The XM bit is used to indicate an exceptional calculation. When 
XM=1 on exit , that indicates that a Divide-by-Zero (DVZ), Invalid 
Operation (IVL) or a 0°0 type exception has occured. In this case 
the pointer P identifies the exception: 
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P Exception 
3 Divide by zero 
4 Invalid Operation 
14 0*0 
EXAMPLES: 


1) 2/0 -- Output: (A,B)=Inf,SB=0,XM=1 & P=3 
2) LN15(0) -- (A,B)=-Inf,SB=0,XM=1 & P=3 
3) SQR15(-1) -- (A,B)=NaN,SB=0,XM=1 & P=4 
4) 0°O -- (A,B)=1,SB=0,XM=1 & P=14 

5) EXP15(1E-20) -- (A,B)=1,SB=1, XM=0. 


The HP-71 follows the proposed IEEE standard for exceptional math 
calculations. See the HP-71 reference manual for details. 


The Standard Math Output is the input to uRES12. This routine 
packs a 15-form into a 12-form for delivery to the system and its 
documentation (in volume II) is worth reading at this point. 
Notice that all math routines deliver IEEE default values and thus 
avoid loss of control to error exits. These default values may be 
altered by uRES12 if the TRAP settings demand it. For anyone 
coding or using math routines, understanding inputs to uRES12 is an 
good place to start. 


There is a Math Scratch Stack available to math routines. Its 
utility routines (STSCR,RCSCR,etc) save and restore the 15-forms in 
(A,B) and (C,D). It holds 4 15-forms. 


Another restriction on math routines is that they do not alter CPU 


data pointers DO & Dil since expression execution routines require 
that information on return from the math routine. 


14.2 Statistical Algorithms 


14.2.1 Summary Statistics 


A sample is a collection of observations of a random variable. A 
matched sample consists of one or more samples where each 
observation in a sample is matched with an observation in each of 
the other samples. Each sample has the same number of elements, 
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which we will denote by N. NVAR will denote the mumber of 
variables (samples). 


A matched sample data set can then be visualized as a table with N 
rows and NVAR columns: 


var: x(1) x(2) ... w(j) ... w(K) oo...) KR (NVAR) 


1 ow(1,1) x(1,2) ... x(1,j) ... x(1,k) 2... «(1,NVAR) 


2 (2,1) (2,2) ... x(2,j) ... x(2,k) ... «(2,NVAR) 


e 


° e e e 


i ox(i,1)) ox(i,2) ... x(i,j) ... x(i,k) 2... x(i,NVAR) 


Cd 


N  x(N,1) x(N,2) ... (N,j) ... x(N,k) ... «(N,NVAR) 


Each row of this table represents a point in NVAR-dimensional space 
and will be called a data point. A data point could be considered 
an observation or realization of a  NVAR-dimensional random 
variable, and we would have N such realizations. 


Regardless of how such a data set is thought of (whether as a 
matched sample or as a sample of a vector-valued random variable), 
it may be useful to perform various statistical operations on it. 


For the purposes of performing the HP-71 mainframe statistical 
operations and functions, we do not need to store the entire data 
set. Instead, we reduce, or summarize, the data in the following 
way. Let x(ij) represent the entry in row i and column j for 
i=1,2,...N and j=1,2,...,NVAR. The summary statistics are then: 


N 
NVAR 


T(j) = E x(ij) j=1,2,...,NVAR 
L 


S(jk) = E [x(ij)-T(j)/N][k(ik)-T(k)/N] —j,k=1,2,...,NVAR 
1 


Here E represents the summation symbol and we have deleted the 
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commas between subscripts to save space. The I(j) represent the 
column totals and the S(jk) represent the mean-adjusted sums of 
squares and cross-products of the mean-adjusted variables. 


Previous HP calculators accumulated the unadjusted sums of squares 
and sums of cross-products of the unadjusted variables: 


E x(ij)x(ik) 
i 


rather than the S{jk). Three advantages to using the S(jk) are: 
(1) They reduce the potential for loss of significance errors when 


the variables have zero means. 


(2) Calculations based on them are faster than those based on the 
unadjusted ones. 


(3) It is easier to use sample means, variances, and correlations 
in place of the original data. 
The STAT statement reserves space for these summary statistics by 
dimensioning a statistical array. This array has one dimension and 
has length (NVAR+1)(NVAR+2)/2. NVAR is saved in nibble 3 of the 
Statistical array’s dope vector. (See "Internal Data 
Representation” chapter for more information about the statistical 
array dope vector.) The other statistics will be stored as 
(N,T(1) ,S(11) ,T(2) ,$(12) ,S(22),...,S(NVAR,NVAR) ). 


Multiple matched samples can be stored simultaneously and analyzed 
in any order by uSing more than one statistical array. 


A data point V = (V(1),...,V(NVAR)) is “added” to or “dropped” from 
the current data set using the ADD and DROP statements, 
respectively. 
14.2.1.1 ADD operator 
ADD updates the summary statistics according to: 

If N<O then print "Invalid Stat Array" and stop 

For k=0 to NVAR 

For j=1 to k (skip if k=0) 

If N20 then S(jk):=0 
else S(jk):=S(jk)+(N*V(5)-T(j)) (N*V(k)-T(k) )/[N(N+1) ] 


Next } 
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T(k):=T(k)+V(k) 
Next k 
N:=N+1 
14.2.1.2 DROP Operator 
DROP updates the summary statistics according to: 
If N<O or O<N<1 then print "Invalid Stat Array" and stop 
If N=0 then print “Invalid Stat Operator" and stop 
For k=0 to NVAR 
For j=1 to k (skip if k=0) 
If N=1 then S(jk):=0 
else S(jk):=S(jk)-(N*V(j)-T(3)) (N*V(k)-T(k))/[N(N-1)] 
Next j 
T(k) 2 =T(k)-V(k) 
Next k 


N:=N-1 


14.2.2 Simple Linear Regression 
The simple linear regression model is: 
X(j)= a + b*X(k) + e » 


where X(j) is the dependent variable, X(k) is the independent 
variable, a and b are constants to be determined (estimated), and e 
represents random errors (uncorrelated with zero mean and unknown 
but constant variance). The constants a and b are determined by 
the method of least squares. That is, they are chosen to minimize 
the residual sum of squares: 


2 
E (X(ij) - a - b¥X(ik)] 
1 


The solution is: 
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b= S(jk)/S(kk), and 
a = [T(j) ‘- b*T(k)]MN. 


The LR statement specifies the current regression by specifying the 
dependent and independent variable mumbers. These numbers are 
stored respectively in nibbles 5 and 4 of the current statistical 
array’s dope vector. 


Note that a (constant) random variable equal to one and having the 
coefficient a is implicitly present in the regression model. This 
interpretation can be quite useful when adding variables to or 
dropping variables from multiple linear regression models. 


The mean-adjusted sum of squares for this constant variable and any 
mean-adjusted sum of cross- products involving this variable are 
zero. The total for this variable is N. Therefore, no additional 
summary statistics need be accumulated inorder to implicitly 
include this variable in the data set. 


For these reasons, this random variable, numbered 0, will always be 
considered present ina data set and 0 will be considered a valid 
variable number for all statistical statements and functions, 

except where explicitly stated otherwise. 
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The built-in clock system is an event scheduler for use in all 
time-keeping applications internal and external to the BASIC. 
operating system. The clock system is built around one of the 
24-bit countdown timers in the display driver chips. 


15.1 Theory of Operation 


15.1.1 Clock System Hardware 


The hardware part of the clock system --the timer at address 
#2EQF8-- is a read/writeable 24-bit countdown timer which runs at 
512 hz and which exerts a service request whenever the high bit is 
set. Treating this timer as a two’s complement quantity, its range 
of values is 8388607 to -8388608 counts, where a count is 1/512th 
second. This is a range of about 4.55 to -4,55 hours. 


15.1.2 Clock System Software 


The software part of the clock system uses this timer to schedule 
the various events --ON TIMERs, 10-minute timeout, wait and 
external alarms-- that must be processed, It does so by setting 
the timer to go negative (exerting a service request) at the 
desired ("target") time, and maintaining a RAM location to keep 
track of the target time, The current time may be computed by 
subtracting the current timer value from the target time. 


The clock system maintains several alarm slots for the various 
alarms which may be scheduled. One of these, the external alarm 
Slot, is used for all external applications which need to schedule 
an alarm. The protocol for its use is explained below. 


Whenever the clock system ig accessed, it examines these slots and 
schedules whichever alarm is next due. When the alarm comes due, 


the timer exerts a service request. The CKSREQ 
(check-service-request) routine calls ALMSRV (alarm-serve), which 
will then schedule the next alarn. If an external alarn is due, 


the clock system will force an exception condition, which will 


cause a poll which will allow external alarm processing. More on 
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that later. 


If, when the clock system is accessed, there is no alarm due within 
4 hours, the system will schedule a "Clock system update". This is 
necessary Simply to keep time because of the limited range of the 
hardware countdown timer. 


15.2 Software Timebase Correction 


Because of the finite accuracy of the timebase in the timer 
(estimated +-50 ppm), the clock system incorporates a software 
timebase correction scheme. The “Adjustment Factor" (or "AF") is a 
24-bit 2’s complement quantity which expresses a correction to be 
applied to the timebase. An adjustment factor of 0 indicates no 
correction. A non-zero adjustment factor indicates the number of 
counts to wait before adding (if AF is positive) or subtracting Pit 
AF is negative) a count. In other words, it is the inverse of the 
inaccuracy. Whenever the clock system is accessed, it adds or 
subtracts the appropriate number of counts to keep the proper time. 


The adjustment factor may be set by the user either directly (the 
AF(<arg>) function) or indirectly (the SEITIME, ADJUST and EXACT 
commands) . 


Several quantities are maintained in RAM to implement the 
adjustment factor scheme: TIMOFS (accumulated error), TIMLST (time 
of last EXACT), TIMLAF (time of last AF correction) and TIMAF 
(adjustment factor). Gory detail about its operation can be 
obtained from the documentation headers for CLKUPD and COMPAF. 


15.3 Format of Time Information 


Defining 1 Jan 0000 as the beginning of time and a "count" as 1/512 
second, time in the clock system is maintained as number of counts 
Since the beginning of time. The current time may be read by 
calling CMPI and easily converted to seconds by shifting right 9 
bits. 


Utilities exist to extract more useful quantities from the time. 
Here is a list, using the following terms: TIME = number of seconds 
since beginning of time; TIME-OF-DAY = number of seconds since 
midnight; DAY# = number of days since 1 Jan 0000. 

TODT: Convert from TIME to TIME-OF-DAY and DAY#. 


FROMDT : 





Inverse of TODT. 
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SECHMS: Convert from TIME-OF-DAY to hours/minutes/seconds. 
HMSSEC: Inverse of SECHMS. 

YMDDAY: Convert from year/month/day to DAY#. 

DAYYMD: Inverse of YMDDAY. 


JD2DAY: Convert from "Julian Date" (year and day-of-year) to 
DAY#. 


DAY2JD: Inverse of JD2DAY. 


15.4 Scheduling External Alarms 


This section and the next contain the necessary information for 
interfacing with the clock system to schedule events. 


Time is kept internally in 512ths of a second since 1 Jan 0000, 
which takes 48 bits. All time quantities, including alarms, are 
kept in these units. Scheduling an external alarm is simple: store 
the alarm time in RAM location ALRM6 and call CMPT. When the alarm 
comes due, the alarm can be processed and the next alarm can be 
scheduled. Certain rules must be followed in order to assure that 
alarms are not lost and the machine is not disrupted. 


15.4.1 Scheduling Code 


The SETALM subroutine sets an alarm given the absolute time at 
which the alarm is to come due. The SETALR subroutine sets an 
alarm relative to the current time. The routines are called with 
the time in A[11-0] and with C[0]=5. See the documentation headers 
for more information. 


15.4.2 Priority of External Alarms 


There is only one external alarm slot. If an application schedules 
an alarm through it, it must do so in such a way as not to destroy 
alarms which may have been scheduled by other applications. This 
simple protocol will insure that: 


1) If alarm in ALRM6 is past due (i.e., current time > ALRM6), 
you can schedule your alarm. 


2) If alarm in ALRM6 is not past due, you can schedule your alarn 
ONLY IF a) your alarm is not past due, AND b) your alarm 
occurs BEFORE the current alarm in ALRM6. 
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This is an important rule. If it is broken, external alarms can be 
lost. 


15.4.3 When Alarms Come Due 


When an alarm comes due, a service request will be exerted. This 
will lead to a pSREQ poll when the mainframe gets around to it and, 
if a program is running, a pEXCPT poll. 


The pEXCPT poll will probably not be very useful for most time 
applications, except for those which should affect running program 
execution (such as ON-TIMER type statements). The pSREQ poll is 
useful, but it is not atime to disrupt the machine. It is, 
rather, a good time to schedule your next alarm (obeying the 
protocol, above) and to set up to process this alarn. See the 
Considerations section, below. 


Accessing the clock system is fairly disruptive in terms of 
register usage and subroutine level usage. The. RAM availability 
during the pSREQ poll does allow saving of RO, R1 and enough 
subroutine levels in scratch RAM to call the clock system safely. 

Since pSREQ can occur in any of many different states (during WAIT, 

dur ing DISP, between statements, when machine is dormant, etc.), it 
is NOT a time to take over the machine. Performing a’ beep here 
would not be harmful; running a BASIC program would be harmful. 

The section below should provide some useful information in making 
the system work for you. 


15.5 Developing Clock System Applications © 


15.5.1 Taking Control 


The problem of taking control of the computer ina reasonable 
(1.e., not overly disruptive) way is an overriding consideration in 
development of a clock application. A good example of how to 
handle the problem is the processing of commands through HPIL in: 
remote mode and device mode. That code would be good reading for 
_ somebody developing a oe system application. 


For demonstration purposes, consider: the HP-75C Clock system. If 
an alarm comes due while the machine is turned off, the machine 
will wake up and process the alarm. If the machine is on, it will 
simply beep when the alarm comes due and process the alarm "when the 
machine is turned off. This would. be. fairly simple to implement on 
the HP-71 by intercepting the following polls and doing the 
following: 


15-4 


commence 


HP-71 Software IDS - Detailed Design Description 
Clock System 


PpSREQ: Note past-due alarms. Beep if an alarm has become past 
due. Schedule new alarms. 


PPWROF: Note machine entering sleep state. Schedule immediate 
wakeup through external alarm if you need to process an alarn. 


PDSUNK: Wake machine. Put command in external command buffer to 
process alarm. 


Developing an application which would process an alarm while the 
machine is awake would be more difficult. Recommended reading for 
this is the aforementioned HPIL code. 


15.5.2 Insuring That the Alarm is Processed 


Another consideration in light of the previous example: If the 
External Command Buffer is used to deliver a command which will 
process an alarm, there is no guarantee that the buffer will not be 
overwritten by another lexfile. Consider this scenario: 


A pocket secretary application will execute a certain command when 
the alarm comes due. The alarm comes due, the machine wakes up and 
the pocket secretary puts the command in the external command 
buffer. The external command buffer is overwritten and the pocket 
secretary has no way to know if its command was ever executed. 


A recommended solution would be for the pocket secretary to define 
a keyword (such as “PROCALRM") which is an instruction to process 
pending alarms (or to process the oldest alarm) and to delete then. 
This command may be executed from the keyboard by the user or it 
may be placed in the external command buffer. This way, if the 
external command buffer is overwritten, the alarm will not be 
deleted. The pocket secretary will know when its alarms have been 
processed. 


15.5.3  Disrupting the Mainframe 

A good, non-disruptive way to implement a program alarm would be to 
CALL the desired program. 

15.5.4 Maintaining Your Own Alarm List 

The clock system doesn’t care how you maintain your own alarm 
list... it only cares that you schedule alarms in its time format: 
counts since 1 Jan 0000. And that you follow the scheduling 


protocol. No recommendation is expressed or implied as to whether 
you should keep your alarm list in an I/O buffer or a file. 
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15.6 Clock System Ram Usage 


The following system memory is used in the internal clock systen: 


Name 
NXTIRQ 
ALRM1 
ALRM2 
ALRM3 
ALRM4 
ALRM5 
ALRM6 


PNDALM 
TIMOFS 
TIMLST 
TIMLAF 
TIMAF 


Size(nibds) 


Function 

time of next sreq 

on timer 1 

on timer 2 

on timer 3 

timeout 

pause 

external alarm 

(set by pocket sec’y or 
controller) 

bitmap of pending alarms 
time error offset for AF use 
time of last exact 

time of last AF correction 

accuracy factor 
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This chapter describes the HP-71 assembler instruction set. The 
instruction mnemonics shown are those provided by the assembler 
used by the HP-71 software development team (which is’ available by 
Special arrangement with HP}. Almost all the mnemonics shown are 
also supported by the HP-71 FORTH/Assembler ROM. 


16.1 CPU Overview 


The HP-71 CPU is a proprietary CPU optimized for high-accuracy BCD 
math and low power consumption. The data path is 4 bits wide. 
Memory is accessed in 4-bit quantities called “nibbles” or “nibs”. 


Addresses are 20 bits, yielding a physical address space of 512K 
bytes. 


There are four working 64-bit registers, five scratch 64-bit 
registers, tuo 20-bit data pointer registers, one 4-bit pointer 
register, a 20-bit program counter, a 16-bit input register, and a 
12-bit output register. Return addresses are stored on an 
eight-level hardware return stack that accepts 20-bit addresses. 
In addition, there 4 Hardware Status bits, a Carry bit, and 16 
Program Status bits. The lower 12 Program Status bits can be 
manipulated as a 12-bit register. 


16.1.1 Working and Scratch Registers 


The working registers are used for data manipulation. Working 
registers A and C are also used for memory access. 


The scratch registers are used to temporarily hold the contents of 
working registers. In addition, the lower 20 bits of scratch 
register R4 are used for interrupt processing by the operating 
system, and therefore are not normally available for data storage. 
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WORKING REGISTERS SCRATCH REGISTERS 
Name $ize Name Size 
$e ee + $2 ee ee + 
A | 64 bits | RO | 64 bits | 
pe we nn nr eee + $a rn a + 
$e an ee ee + $e een ee + 
B | 64 bits | R1 | 64 bits j 
$a a rn nn eee + Hae wn nn nr eee + 
we ee a a ee ee eee + $e ee a ee ee eee + 
c | 64 bits | Re | 64 bits { 
$e ee eee + pa we ne ee ee + 
$m re a ee renee ee + Hae er ee eee + 
D | 64 bits | R3 | 64 bits | 
or a ne we re ene + $a wn ww nn ee ee + 
aw ww owe ee + 
R4 | 64 bits* | 
$n a ee + 


* Note: the lower 20 bits of R4 are modified 
whenever an interrupt occurs, and are 
normally unavailable for storage 


16.1.1.1 Field Selection 


Subfields of the working registers may be manipulated by the use of 
field selection. The possible field selections range from the 
entire register to any single nibble of the register. Certain 
subfields are designed for use in BCD calculations. Others are 
used for data access or general data manipulation. 
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FIELD SELECTION FIELDS 


P Digit pointed to by P register 
WP Digit 0 through digit pointed at by P 

XS Digit 2 - Exponent sign 

X Digits 0-2 - Exponent and exponent sign 
S Digit 15 - Mantissa sign 

M Digits 3-14 - Mantissa 

B Digits 0-1 - Exponent or byte field 

U Digits 0-15 - Whole word 

A Digits 0-4 - Address field 


Nibbles of Register 


ecm ee ee eee re ee ee ee ee ee ee ee we ee we we we ee ew we ee me we we ee em we ee we a we we owe ow oe we 


A te re SEF eR SE Oe ee OER UD ee eee ee ee ee ee ee ee ee oe ee ee oe ee ee we ee we ee we we ee ae ee 


S XS| <-B->| 
pares Busests >| 

[Catererereseas= Mceaeerssaessers— >| <-- K ->| 

| (22-22 ----- === Wo en -- noone o-oo ne >| 


16.1.2 Pointer Registers 

The Data Pointer registers, DO and Dl, are used to contain 
addresses during memory access, and are used in conjunction with 
the working registers. 


The P Pointer register is used in Field Selection operations with 
the working registers. 


DATA POINTER REGISTERS 
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16.1.3 Input, Output, and Program Counter Registers 


The input/output registers are used to communicate with the system 
bus. The program counter points to the next instruction to be 
executed by the CPU. 


INPUT AND OUTPUI REGISTERS 


PROGRAM COUNTEK REGISTER 


me mee a 


PC | 20 bits | 


16.1.4 Carry and Status Bits 


The Carry bit is adjusted when a calculation or logical test is 
per formed. During a calculation, such as incrementing or 
decrementing a register, it is set if the calculation overflows or 
borrows; otherwise it is cleared. During a logical test, such as 
comparing two registers for equality, it is set if the test is 
true; otherwise it is cleared. 


The operating system uses the upper 4 Program Status bits to 
indicate the state of the operating system. The remaining 12 
Program Status bits are generally available to applications 
software, and may be manipulated collectively as the ST register. 


The four Hardware Status bits are set {but not cleared) by 
hardware-related events, and must therefore be cleared beforehand 
in order to detect a particular occurrence. They are individually 
accessible by name. The Module Pulled bit (MP) is set when a 
module is pulled from or added to the machine. The Sticky Bit (SB) 
is set whena "one" bit shifts off the right end of a working 
register as the result of a shift instruction. The Service Request 
(SR) bit is set as aresult of the SREQ? instruction if any 
hardware service request is pending. The external Module Missing 
bit is set by execution of a zero opcode (RINSXM instruction). 
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CARRY: 1 bit 
PROGRAM STATUS: 16 bits 
Bits Usage 


me ee we a ae ee ee ce wre ee mee eee re ee me mm eee ee ee ee 


15 thru 12 Indicate state of operating system 
11 thru 0 Available to prevrans, may be 


manipulated as the ST register 


HARDWARE STATUS: 4 bits 


Bit Symbol Name 

3 MP Module Pulled 

2 SR Service Request 

I SB Sticky Bit 

0 XM External Module Missing 


16.1.5 Loading Data from Memory 


When data is read from memory into a register, the CPU places the 
lowest addressed nibble in the least significant nibble of the 
register. Thus the data appears to be loaded backwards in the 
register. 


For example, if the data shown below in memory is read into the C 
register using the C=DAT1 4 instruction, the data in the 
register will be arranged as shown. 


Memory 

Location Value C Register 

woe meee HHH tone - + +  e 
1000 0 | | poset sents: OF 4 
1001 1 tenn nn nnn ne --- aan ----- + 
1002 2 TS: igs. 9 oe EO 
1003 3 


This principle applies also to loading constants into a CPU 
r ,’ster such as C, DO,or Di, since the CPU must read the constant 
trom the instruction opcode in memory. For example, the 
instruction LCHEX 3210 produces the opcode 330123 and the C 
register is loaded as shown above. 


Note that the apparent reversal of data read from memory is 
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compensated: for by a similar reversal procedure when the data is 
written to memory from the CPU, which restores the data to its 
original orientation. (See below.) 


16.1.6 ” “Storing Data in Memory : 


When data is written to memory from a register, the CPU places the 
least significant nibble of the register in the lowest nibble of 
the addressed. memory location. Thus, the data appears to be 
written in reverse order. 


For example, if the data shown above in the C register is written 
to memory using the DATi=C 4 instruction, the data will be 
written to memory as shown. 


Note that the apparent reversal of data written to memory is 
compensated for by a similar reversal procedure when the data is 
read from’ memory by the CPU, which restores the data to its 
original orientation. 


16.2 Instruction, Syntax 


16.2.1 “Labels and Symbols 


A label is a symbolic name for a numeric value. A label acquires 
its value _ by appear ing in the label field of certain statements. 
The word "symbol" is a general term for a label, and the two are 
used interchangeably. 


Labels are one to six alphamumberic characters with the following 
restrictions:'. the. characters comma [(,), space ( ) and right 
parenthesis are prohibited and the first Character cannot be equal 
sign (=), sharp (#), single quote (’), left parenthesis, or the 
digits 0 through 9. 


A label may be immediately preceded by an equal sign which declares 
the label to be an external symbol. An external symbol defined in 
one module may be referenced as an external symbol by another 
module. Such references are resolved when the modules are linked 
together. Certain HP-71 assemblers, such as the FORTH/ASSEMBLER 


ROM, have no associated linker and therefore do not SUPport — 
external symbols. In this case, any leading equal sign is ignored. 


When a label is -used as part of an expression, parentheses are 
required to delinéate it. ‘That is, AD1-10 is a label but (AD1)-10 
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is a computed expression. 


16.2.2 Comments 


A comment line begins with an asterisk (*) in column one, and may 
occur anywhere. An in-line comment may begin with any non-blank 
character and must follow the modifier field of an instruction (or 
the opcode if no modifier is required). 


16.2.3. Expressions 


Wherever anexpression may appear in the modifier field of an 
instruction, it is represented by the symbol “expr” in the 
instruction descriptions below. Expressions consist of: 


EXPRESSION COMPONENTS 


Item Examples 


ee eee ee ee ee ee ee ee ee ee oe oe ee ee me ee oe oe eee me we ee ee re ee we we ae ae we ae a ww eee ew 


decimal constants 23434 
nevadecimal constants #1FFO {less than #100000) 


ascii constants \AB\ (3 or less characters) 
> AB’ (3 or less characters) 


operators + addition 

- subtraction 
*O56+ 
multiplication 
integer division 
exponentiate 
and 
or 


I~ #R 


+ Re 


* Current assembly program counter 


label Symbol defined in the label field 
of an instruction 


(expression) Parenthesized expression 


Two classes of instructions require a modifier field which contains 
a constant of a specific type that does not conform to the above 
rules. These are: 
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a) String constant which can exceed 3 characters 


LCASC ascii? or 
LCASC \ascii\ 


NIBASC -ascii? or 
NIBASC \ascii\ 


b) Unconditional Hex constant 


LCHEX 4FFFFF 
NI BHEX 4FFFFF 


16.2.4 Sample Line Image 


The format below is the recommended column alignment; however, the 
assembler is "free format" and only a space is required to delimit 
the different fields. A label, if present, must start by column 2. 


1 8 15 31 80 
Vv Vv Vv Vv Vv 
label opcode modifier comments 


00 ee we ee ee ee ee ee ee ee ee re om te me ee om ee ee om OO ee ee ee Oe ee ee ee ee ee we oe ee ow oe we ee ee es ee ee ee eee ee se es a 


16.3 Explanation of Symbols . 


In the following descriptions of the HP-71 assembler mnemonics, 
these symbols have the following meanings unless. specified 
otherwise. In particular, note the symbols used to indicate the 
various values encoded within the assembled opcodes. 


a The hex digit used to encode the field selection in 
the assembled opcode of an instruction. See the 
Field Select Table in the next section for details. 


b The hex digit used to encode the field selection in 
the assembled opcode of an instruction. See the 
Field Select Table in the next section for details. 


d The number of digits represented by a field selection 


field. Used in calculating the execution cycle time 
of some instructions. See the Field Select Table 
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hhhh 


hhhhh 
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in the next section for details. When used in an 
extended field selection fsd, represents an expression 
which indicates the number of nibbles of the register 





that will be affected by the instruction, proceeding 
from the low-order nibble to higher-order nibbles. 


An expression that evaluates to an absolute or 
relocatable value, usually less than or equal 
to 5 nibbles in length. 


Field selection symbol. See the Field Select Table 
in the next section for details. 


Extended field selection symbol. Represents either 
a normal field selection symbol fs, or an expression 
that gives the number of digits d of the register 
that will be affected by the instruction, proceeding 
from the low-order nibble to higher-order nibbles. 


Two-digit hex constant, such as 08 or F2. Within an 
opcode represents the hex digits used to store the 
value of the expression in the opcode in reverse 
order (see “Loading Data From Memory’). 


Four-digit hex constant, such as 38FE. Within an 
opcode, represents the hex digits used to store the 
value of the expression in the opcode in reverse 
order (see "Loading Data From Memory’). 


Five-digit hex constant, such as 308FE. Within an 
opcode, represents the hex digits used to store the 
value of the expression in the opcode in reverse 
order (see “Loading Data From Memory”). 


A symbol defined in the label field of an instruction. 
A one-digit decimal integer constant. 


Represents an expression that evaluates to a 1-nibble 
value, unless specified otherwise. Within an opcode, 
represents the hex digit used to store the assembled 

value of the expression in the opcode. 


Represents an expression that evaluates to a 2-nibble 
value, unless specified otherwise. Within an opcode, 
represents the hex digits used to store the assembled 
value of the expression in the opcode. 


Represents an expression that evaluates to a 4-nibble 
value, unless specified otherwise. Within an opcode, 
represents the hex digits used to store the assembled 
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value of the expression in the opcode. 


nnonnn Represents an expression that evaluates to a 5-nibble 
value, unless specified otherwise. Within an opcode, 
represents the hex digits used to store the assenbled 
value of the expression in the opcode. 
16.3.1 Field Select Table 


The following symbols are used in the 
denote the various possible field selections. 


instruction descriptions to 


There are two ways in which field selection is encoded in the 


opcode of an instruction. 
table below, 


2a? or *h? 


opcode value given in the mnemonic descriptions below. 


XS 


FIELD SELECT TABLE 


oe me oe we ee om ee ow oe ae me ne we oe ee ee we we we we we a we we ce we ee 


by P pointer register. 


Word-through-Pointer Field. 
Digits 0 through (P). — 
Exponent Sign Field. Digit 2. 
Exponent Field. Digits 0 - 2. 
Sign Field. Digit 15. 
Mantissa Field. Digits 3 - 14. 


Byte Field. Digits 0 - 1. 


Word Field. All digits. 
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Opcode 
Representation of Digits 


0 


(a) 


(b) 


These two patterns are shown in the 
and are designated by the letter 


in the 


Number 


(d) 


12 


16 


na re ee 
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16.4 Instruction Set Overview 


The following pages briefly summarize the HP-71 instruction set. 
For further details please refer to the Mnemonic Dictionary which 


follows this summary. 


16.4.1 GOTO Instructions 


~ we 


1 = Statement Label 


GOTO label Short unconditional branch 

GOC label Short branch if Carry 

GONC label Short branch if no Carry 
GOLONG label Long GOTO 

GOVLNG label Very long GOTO 

GOYES label Short branch if test true (must 


follow a Test Instruction) 


16.4.2 GOSUB Instructions 


GOSUB iabel Short transfer to suodrouiane 
GUoUBL label Long GOSUB 
GOSBVL label Very long GOSUB 


16.4.3 Subroutine Returns 


RIN Unconditional return 

RINSC Return and set Carry 

RINCC Return and clear Carry 

RINSXM Return and set XM bit (Module Missing) 
RTI Return and enable interupts 

RINC Return if Carry set 

RTNNC Return if no Carry set 

RINYES Return if test true (must follow a 


Test Instruction) 
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16.4.4 Test Instructions 


All test instructions must be followed with a GOYES or a RINYES 
instruction. Although they appear to be two statements, in fact 
they combine to be one. Each test adjusts the Carry bit when 
per formed. 


16.4.4.1 Register Tests 


r,s = A,B,C or (r,s) = (C,D),(D,C) 
fs = Field Select 
?r=s fs Equal 
?r#s fs Not equal 
?r=0 fs Equal to zero 
?r #0 fs Not equal to zero 
?r>s fs Greater than 
?r<s fs Less than 
?r>=s fs Greater than or equal 
?r<=s fs Less than or equal 


16.4.4.2 P Pointer Tests 


0 <= n <= 15 
2P= n Is P Pointer equal to n? 
?P# n P Pointer not equal to n? 


16.4.4.3 Hardware Status Bit Tests 


?KM=0 Module Missing bit equal to zero? 
?SB=0 Sticky Bit equal to zero? 

?SR=0 Service Request bit equal to zero? 
2MP =0 Module Pulled bit equal to zero? 


16.4.4.4 Program Status Bit Tests 


0 <=n <= 15 
?ST=1 on Status n equal to i? 
?5T=0 on Status n equal to 0? 
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16.4.5 


16.4.6 


16.4.6. 


16.4.6. 


2ST#1 oon Status not equal to 1? 
2ST#0 on Status not equal to 0? 


P Pointer Instructions 
0 <= n <= 15 
P= n Set P Pointer ton 
P=P+1 Increment P Pointer, adjust Carry 
P=P-1 Decrement P Pointer, adjust Carry 
C+P+1 Add P Pointer plus one to A-field of C 
CPEX on Exchange P Pointer with nibble n of C 
P=C n Copy nibble n of C into P Pointer 
C=P n Copy P Pointer into nibble n of C 
Status Instructions 
1 Program Status 


0 <= n <= 15 

ST=1 n Set Status n to 1 

ST=0 n Set Status n to 0 

CSTEX Exchange X field of C with Status 0-11 
C=ST Copy Status 0-11 into X field of C 
ST=C Copy X field of C into Status 0-11 
CLRST Clear Status 0-11 


2 Hardware Status 


SB=0 Clear Sticky Bit 

SR=0 Clear Service Request bit (see SREQ7) 
MP=0 Clear Module-Pulled bit 

XM=0 Clear External Module Missing bit 
CLRHST Clear all 4 Hardware Status bits 


16-13 





HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


16.4.7 System Control 


SETHEX 
SETDEC 
SREQ? 


C=RSTK 
RSTK=C 
CONFIG 
UNCNFG 
RESET 
BUSCC 
SHUTDN 
C=ID 
INTOFF 


INION 


Set arithmetic mode to hexadecimal 

Set arithmetic mode to decimal 

Sets Service Request bit if service has 
has been requested. C(0) shows what 
bit(s) are pulled high (if any) 

Pop return stack into A-field of C 

Push A-field of C onto return stack 

Configure 

Unconf igure 

Send Reset command to system bus 

Send Bus command C onto system bus 

Stop CPU here (sleeps until wake-up) 

Request chip ID into A-field of C 

Disable interrupts (doesn’t affect ON-key 
or module-pulled interrupts) 

Enable interrupts 


16.4.8 Keyscan Instructions 


OUT=C 
OUT=CS 
A=IN 
C=IN 


16.4.9 Register Swaps 


S 


RO,R1,R2,R3, 


Copy X field of C to OUTput register 
Copy nibble 0 of C to OUTput register 
Copy INput register to lower 4 nibbles of A 
Copy INput register to lower 4 nibbles of C 


R4 


Exchange register A with s 
Exchange register C with s 
Copy s to register A 
Copy s to register C 
Copy register A to s 
Copy register C tos 


16.4.10 Data Pointer Manipulation 


d = DO,D1 
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1<=n <= 16 


expr <= 5 nibbles 


AdEX 
CdEX 
AdXS 


CdXS 


16.4.11 Data Transfer 


fsd = 


A=DATO 
C=DATO 
A=DAT1 
C=DAT1 
DATO=A 
DATO=C 
DAT1=A 


DAT1=C 


Exchange Data ptr d with A-fieid of A 

Exchange Data ptr d with A-field of C 

Exchange lower 4 nibs of Data ptr d with 
lower 4 nibs of A 

Exchange lower 4 nibs of Data ptr d with 
lower 4 nibs of C 

Copy A-field of A to Data pointer d 

Copy A-field of C to Data pointer d 

Copy lower 4 nibs of A to lower 4 nibs 
of Data pointer d 

Copy lower 4 nibs of C to lower 4 nibs 
of Data pointer d 

Increment Data pointer d by n 

Decrement Data pointer d by n 

Load hh into lower 2 nibs of Data ptr d 

Load hhhh into lower 4 nibs of Data ptr d 

Load hhhhh into lower 5 nibs of Data ptr d 

Load nn into lower 2 nibs of Data ptr d 
(any overflow is ignored) 

Load nnnn into lower 4 nibs of Data ptr d 
(any overflow is ignored) 

Load nnnnn into lower 5 nibs of Data ptr d 
(any overflow is ignored) 


Field select fs, or d (# of digits) 


fsd 
fsd 
fsd 
fsd 
fsd 
fsd 
fsd 


fsd 


Copy data from memory addressed by DO into 
A, field selected 

Copy data from memory addressed by DO into 
C, field selected 

Copy data from memory addressed by D1 into 
A, field selected 

Copy data from memory addressed by D1 into 
C, field selected 

Copy data from A into memory addressed by 
DO, field selected 

Copy data from C into memory addressed by 
DO, field selected 

Copy data from A into memory addressed by 
Di, field selected 

Copy data from C into memory addressed by 
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Di, field selected 


16.4.12 Load Constants 


LCHEX hhhhhhhh Load hex constant into C 

LC(m) expr Load the m-nibble constant into C 
LCASC ’ascii’ Load up to 8 ASCII characters into C 
LCASC \ascii\ Load up to 8 ASCII characters into C 


16.4.13 Shift Instructions 


Note that the non-circular right shifts affect the Sticky Bit. 


r = A,B,C,D 
fs = Field Select 


rSL fs Shift register r fs field Left 1 nibble 
rSR fs Shift register r fs field Right 1 nibble 
rSLC Shift register r Left Circular 1 nibble 
rSRC Shift register r Right Circular 1 nibble 
rSRB | Shift register r Right 1 bit 


16.4.14 Logical Operations 


r,s = A,B,C or (r,s) = (C,D),(D,C) 
fs = Field Select 


r=rés fs r AND s into r, field selected 
r=ris_ fs r OR sg into r, field selected 


16.4.15 Arithmetics 


The two groups of arithmetics differ in the range of registers 
available. In the first group (General usage) almost all 
combinations of the four working registers are possible; however, 
in the second group (Restricted usage) only a few select 
combinations are possible. 
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16.4.15.1 General Usage 


r,s = A,B,C or (r,s) = (C,D),(D,C) 
fs = Field Select 
r=0 fs Set r to zero 
r=r+r fs Double r, adjust Carry 
r=r+1 fs Increment r by 1, adjust Carry 
r=r-1 fs Decrement r by 1, adjust Carry 
r=-r fs 10’S complement or 2’S complement, Carry 
set if r#0 and in HEX mode, else clear 
r=-r-1 fs 9’S complement or 1’S complement 
Carry always cleared 
r=r+s fs Sum r and s into r, adjust Carry 
s=r+s fs Sum r and s into s, adjust Carry 
r=s fs Copy s into r 
s=r fs Copy r into s 
rsEX fs Exchange r and s 


16.4.15.2 Restricted Usage 


(r,s) = (A,B),(B,C),(C,A),(D,C) 


fs Difference of r and s into r, adjust Carry 


r=r-s 
r=s-r fs Difference of s and r into r, adjust Carry 
s-s-r fs Difference of s and r into s, adjust Carry 


16.4.16 No-Op Instructions 


NOP3 Three nibble No-Op 
NOP4 Four nibble No-Op 
NOP5 Five nibble No-Op 


16.4.17 Pseudo-Ops 


16.4.17.1 Data Storage Allocation 


1 <=n <= 8 
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BSS nnnnn Allocate nnnnn mumber of zero nibs 
CON(m) expr Generate m-nibble constant 
REL(m) expr | Generate m-nibble relative constant 


NIBASC ’ascii’ Generate ascii characters, byte reversed 
NIBASC \ascii\ Generate ascii characters, byte reversed 
NIBHEX hhhh Generate hexadecimal digits hhhh 


16.4.17.2 Conditional Assembly 


name IF expr Start conditional assembly until ELSE or 
. ENDIF if flag expr was set on invocation 
of assembler (optional use of name allows 
nesting of IF’s) 
name ELSE Conditional assembly if IF test was false 
‘name ‘ENDIF. Ends conditional assembly started by IF 


16.4.17.3. Listing Formatting 


‘EJECE Force new page in the assembly listing 
STITLE text Force new page, set subtitle value to text 
TITLE text Set title value to text 


16.4.17.4 | Synibdol Definition 


label EQU nnnnn Defines label to have the value expr 


-16.4.17.5 Assembly Mode 


ABS — nnnnn Specify absolute assembly at adress given 
END: - Marks end of the assembly source 


16.5 Mnemonic Dictionary 


This section contains a description of each HP-71 assembler 
instruction or pseudo-op. The description shows the binary opcode 
generated by the mnemonic, if any, as well as the execution cycle 
time required if the mnemonic is an executable instruction. 


The symbols used in these descriptions are explained - in the 
"Explanation of Symbols" section earlier in this chapter. 
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FHHIIBHIRIIHIHIIHIFITBIFIHIHIFIEHIHIEIFIHIIEHHIFHEAHI HHH HHH HHH HIB AIE 


* MNEMONICS - 
JERI BIH IEIHISHIHEFIHEEHHHHEHHEHHEEHEHHHEHE 
2A#0 fs - Test for A not equal to 0 
fs =A opcode: 8ACyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WUP,XS,X,S,M,B,U) opcode: 9aCyy 
cycles; 13 + d (GO/RTNYES) 
6 + d (NO) 


Test whether the fs field of A is not equal to 0. Must be followed 
by a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


PA#B 4 6fs - Test for A not equal to B 
fs =A opcode: 8A4yy 
cycles: 13 + d (GO/RINYES) 
6 + d {NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9a4yy 


cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of A is not equal to the fs field of B. 


Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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PARC fs - Test for A not equal toC 
fs =A | opcode: 8A6yy 
cycles: 13 + d (GO/RINYES) 


6 + d (NO) 


fs = (P,UP,XS,X,S,M,B,W) opcode: 9a6yy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 


Test whether the fs field of A is not equal to the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


?A<=B fs - Test for A less than or equal to B 
fs =A opcode: 8BCyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO} 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9bCyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of A is less than or equal to the fs 
field of B. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


PAB fs - Test for A less than B 


ee ee ee ee oe 


fs =A opcode: 8B6yy 
cycles: 13+ d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9b6yy 
cycles: 13+ d (GO/RTNYES) 
| 6 + d (NO) 


Test whether the fs field of A is less than the fs field of B. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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?A=0 fs - Test for A equal to 0 


fs =A opcode: S8A8yy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9a8yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of A is equal to 0. Must be followed by 
a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


2A=B fs - Test for A equal to B 
fs =A opcode: 8A0yy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9a0yy 
cycles: 13 + d (GO/RTNYES}) 
6 + d (NO) 


Test whether the fs field of A is equal to the fs field of B. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 


?A=C fs - Test for A equal to C 
fs =A opcode: S8A2yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fo = (P,UP,XS,X,S,M,B,U) opcode: 9a2yy 


cycles: 13 + d (GO/RINYES) 
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6 + d (NO) 
Test whether the fs field of A is equal to the fs field of C. Must 


be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 


?7A>=B fs - Test for A greater than or equal to B 
fs =A Eat : opcode: 8s8B8yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9b8yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of A is greater than or equal to the fs 
field of B. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


?A>B fs - Test for A greater than B 
fs =A opcode: 8sB0yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,¥) | opcode: 9b0yy 


cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of A is greater than the fs field of .B. 


Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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2Be0 fs - Test for B not equal to 0 
fs =A opcode: S8ADyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9aDyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is not equal to 0. Must be followed 
by a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


?B#A fs - Test for B not equal to A 
fs =A opcode: 8A4yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9a4yy 


cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is not equal to the fs field of A. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


BAC fs - Test for B not equal to C 
fs =A opcode: S8A5yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9ad5yy 


cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is not equal to the fs field of C. 


Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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?B<=C fs - Test for B less than or equal to C 


fs=A opcode: S8BDyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


fs = (P,UP,XS,X,S,M,B,U) opcode: 9bDyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is less than or equal to the fs 
field of C. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


2B<C fs - Test for B less than C 
fs =A opcode: 8B5yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9b5yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is less than the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


2B=0 fs - Test for B equal to 0 


fs =A opcode: 8A9yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M)B,W) opcode: 9a9yy 


cycles: 13 + d (GO/RINYES) 
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6 + d (NO) 
Test whether the fs field of B is equal to 0. Must be followed by 


a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


?B=A fs - Test for B equal to A 


ee ee ee we ee oe oe 


fs =A opcode: 8A0yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9a0yy 
cycles: 13+ d (GO/RTNYES) 
6 + d (NO) 


Test whether the fs field of B is equal to the fs field of A. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 


2?B=C fs - Test for B equal toC 
fs =A opcode: S8Alyy 
cycles: 13+ d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9alyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is equal to the fs field of C. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 
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® 
?B>=C fs - Test for B greater than or equal to C 
fs =A opcode: 8B9yy - . 
: cycles: 13 + d (GO/RINYES) 
5 6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9b38yy 
cycles: 13+ d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is greater than or equal to the fs 
field of C. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


fs =A opcode: 8Blyy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9blyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of B is greater than the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


?7C#0 4 8©68fs - Test for C not equal to 0 
fs =A oc... opcode: 8AEyy 
‘ cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


fs = (P,WP,XS,X,S,M,B,W) | opcode: 9aEyy 
.* eycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is not equal to 0. Must be followed 
by a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 
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2C#A fs - Test for C not equal to A 
fs =A opcode: 8A6yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9ab6yy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 


Test whether the fs field of C is not equal to the fs field of A. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


2C#B 406 fs) 6- «Test for C not equal to B 
fs =A opcode: 8A5yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9a5yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is not equal to the fs field of B. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


°C#D 4 =6fs) - Test for C not equal to D 


fs =A opcode: 
cycles: 

fs = (P,WP,XS,X,S,M,B,W) opcode: 
cycles: 
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6 + d (NO) 
Test whether the fs field of C is not equal to the fs field of D. 


Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


?C<=A fs - Test for C less than or equal to A 
fs =A opcode: S8BEyy 
cycles: 13+ d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9bEyy 
| cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is less than or equal to the fs 
field of A. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


2C<A fs - Test for C less than A 
fs =A opcode: 8B6yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9b6yy 
cycles: 13+ d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is less than the fs field of A. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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?C=0 fs - Test for C equal to 0 
fs =A opcode: 8AAyy 


cycles: 13 + d (GO/RINYES) 


6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9aAyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is equal to 0. Must be followed by 
a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


?C=A fs - Test for C equal to A 
fs =A opcode: 8A2yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WUP,XS,X,S,M,B,U) opcode: Y9a2yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is equal to the fs field of A. Must 
be foliowed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 


?C=B fs - Test for C equal to B 
fs =A opcode: S8Alyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,W) opcode: 9alyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is equal to the fs field of B. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 
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27C2D) 4=6fs)6-) «Test for C equal to D 


— ee ee ee oe ow ae oe 


fs =A opcode: S8A3yy 
ne / cycles: 13 + d (GO/RINYES) 
. ' 6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9a3yy 
hres cycles: 13+4 (GO/RINYES) 
~ 6 + d_ (NO) 


Test whether the fs field of C is equal to the fs field of D. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 
following RINYES or GOYES. Adjusts Carry. 4 Bee . 


27C>=A fs - Test for C greater than or equal to A 
fs=A opcode: 8BCyy 
cycles: 13+ 4 (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9bCyy - 
cycles: 13 +.d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of C is greater than or equal to the fs 
field of A. Must be followed by a GOYES or RINYES mnemonic. -yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


2C>A fs - Test for C greater than A 


fs =A opcode: SB2yy 
cycles: 13+d (GO/RENYES) 
6 + d (NO) 


fs = (P,UP,XS,X,S,M,B,U) opcode: 9b2yy 
cycles: 13 + d (GO/RTNYES) 
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6 + d (NO) 


Test whether the fs field of C is greater than the fs field of A. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


2D#0 fs - Test for D not equal to 0 
fs =A opcode: 8AFyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9aFyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of D is not equal to 0. Must be followed 
by a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 


2D#C fs - Test for D not equal to C 
fs =A opcode: S8A7yy 
cycles: 13 + d (GO/RINYES) 


6 + d (NO) 


fs = (P,UP,XS,X,S,M,B,W) opcode: 9a7yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
| Test whether the fs field of D is not equal to the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 
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27D<2C fs - Test for D less than or equal to C 


fs =A . opcode: 8BFyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9bFyy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of D is less than or equal to the fs 
field of C. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


?D<C fs - Test for D less than to C 


—- ee we ae ee we ee oe 


fs =A opcode: 8B7yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fe = (P,UP,XS,X,S,M,B,U) opcode: 9b7yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of Dis less than the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


2D=0 fs - Test for D equal to 0 


oe ew ee ee ee ow oe 


fs =A opcode: S8AByy 
cycles: 13+ d (GO/RTNYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,U) opcode: 9aByy 
cycles: 13 + d (GO/RTNYES) 
6 + d (NO) 


Test whether the fs field of D is equal to 0. Must be followed by 
a GOYES or RINYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts Carry. 
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fs=A opcode: 8A7yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9a7yy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of D is equal to the fs field of C. Must 
be followed by a GOYES or RINYES mnemonic. yy is determined by the 


27D=C fs - Test for D equal to C 
following RINYES or GOYES. Adjusts Carry. 


?D>=C fs - Test for D greater than or equal to C 
fs =A opcode: S8BByy 
7 cycles: 13 + d (GO/RINYES) 
6 + d (NO) 
fs = (P,UP,XS,X,S,M,B,W) opcode: 9bByy 
cycles: 13 + d (GO/RINYES) 
6 + d (NO) 


Test whether the fs field of D is greater than or equal to the fs 
field of C. Must be followed by a GOYES or RINYES mnemonic. yy is 
determined by the following RINYES or GOYES. Adjusts Carry. 


2?DoC fs - Test for D greater than C 


fs =A opcode: 8B3yy 
cycles: 13 + d (GG/RINYES) 
6 + d (NO) 
fs = (P,WP,XS,X,S,M,B,U) opcode: 9b3yy 


cycles: 13+ d (GO/RINYES) 
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6 + d (NO) 


Test whether the fs field of D is greater than the fs field of C. 
Must be followed by a GOYES or RINYES mnemonic.- yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


MP =0 - Test Module Pulled bit (MP) 
opcode: 838yy 
-cycies: 13 (GO/RTNYES) 
6 (NO) 


Test whether the Module Pulled bit (MP) is zero. This hardware 
status bit is set whenever a module-pulled interrupt occurs (the 
*INT line of the CPU is pulled high), and must be explictly cleared 
by the MP=0 mnemonic. See the "HP-71 Hardware Specification” for 
more information. Must be followed by a RINYES or GOYES mnemonic. 
yy is determined by the following RINYES or GOYES. Adjusts Carry. 


?P# on - Test if P pointer not equal ton 
‘opcode: 88nyy 
cycles: 13 (GO/RINYES) 
“. 6 (NO) 


Test whether the P pointer is not equal ton. Must be followed by 
a RINYES or GOYES mnemonic. yy is determined by the following 
RINYES or GOYES. Adjusts. Carry. 


?P= n - Test if P pointer is equal ton 
“ opcode: 8s9nyy 
cycles: 13 (GO/RINYES) 
6 (NO) 


Test whether the P pointer is equal ton. Must be followed by a 
RINYES or GOYES mnemonic. yy is determined by the following RINYES 
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or GOYES. Adjusts Carry. 


?SB=0 - Test Sticky Bit (SB) 
opcode: 832yy 
cycles: 13 (GO/RINYES) 
6 (NO) 


Test whether the Sticky Bit (SB) is zero. This hardware status bit 
is set on right shifts when a non-zero nibble or bit is shifted off 
the end of the field. The Sticky Bit must be cleared explicitly. 
Must be followed by a RINYES or GOYES mnemonic. yy is determined 
by the following RINYES or GOYES. Adjusts Carry. 


?SR=0 - Test Service Request bit (SR) for zero 
opcode: 834yy 
cycles: 13 (GO/RINYES) 
6 (NO) 


Test whether the Service Request bit (SR) is zero. This hardware 
status bit is set by the SREQ? mnemonic, and must be cleared 
explicitly by the SR=0 instruciton. Must be followed by a RINYES 
or GOYES mnemonic. yy is determined by the following RINYES or 
GOYES. Adjusts Carry. 


2ST#O n  ~- Test status bit n not equal to 0 
opcode: 87nyy 
cycles: 14 (GO/RINYES) 
7 (NO) 


Test whether Program Status bit nis set. Must be followed by a 


RINYES or GOYES mnemonic. yy is determined by the following RINYES 
or GOYES. Adjusts Carry. 
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?ST#1 nn  ~- Test status bit n not equal to 1 
opcode: 8s6nyy 
cycles: 14 (GO/RINYES) 
7 (NO) 


Test whether Program Status bit nis clear. Must be followed by a 
RINYES or GOYES mnemonic. yy is determined by the following RINYES 
or GOYES. Adjusts Carry. 


?ST=0 n  - Test status bit n equal to 0 
opcode: 86nyy 
cycles: 14 (GO/RINYES) 
7 (NO) 


Test whether Program Status bit n is clear. Must be followed by a 
RINYES or GOYES mnemonic. yy is determined by the following RINYES 
or GOYES. Adjusts Carry. 


‘28T=1 n  - Test status bit n equal to 1 
opcode: 87nyy 
cycles: 14 (GO/RINYES) 
7 (NO) 


Test whether Program Status bit n is set. Must be followed by a 


RINYES or GOYES mnemonic. yy is determined by the following RINYES 
or GOYES. Adjusts Carry. . 


16-36 





HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


2XM=0 - Test External Module Missing bit (XM) 
opcode: 831lyy 
cycles: 13 (GO/RTNYES) 
6 (NO) 


Test the whether the External Module Missing bit (XM) is zero. 
This hardware status bit is set by the RINSXM mnemonic, and must be 
explicitly cleared by the XM=0 mnemonic. Must be followed by a 
RINYES or GOYES mnemonic. yy is determined by the following RINYES 
or GOYES. Adjusts Carry. 


A=-A fs - Two’s complement of A into A 

fs =A opcode: fF8 
cycles: < 

fs = (P,UP,XS,X,S,M,B,U) opcode: Bb8 


cycles: 3 +d 


Complement the specified fs field of A. Complement is tuo’s 
complement if in HEX mode, ten’s complement if in DEC mode. Carry 
is set if the field is not zero, else Carry is cleared. 


A=-A-1 fs - One’s complement of A into A 

fs =A opcode: FC 
cycles: - 

fs = (P,WUP,XS,X,S,M,B,W) opcode: BbdC 


cycles: 3+d 


Perform a one’s complement on the specified fs field of A. Carry 
is always cleared. 
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A=0 fs - Set A equal to 0 
fs =A opcode: DO 
cycles: 7 
fs = (P,WP,XS,X,S,M,B,W) opcode: Ab0 


cycles: 3+d 


Set the specified fs field of A to zero. Carry is not affected. 


A=A'B fs - A ORB into A 


we ee ee we oe ow ow oe 


fs =A opcode: . OEF8 
oe cycles: 4+d 
fs = (P,UP,XS,X,S,M,B,W) opcode: 0Ea8s 


cycles: 4+d 


Set the fs field of register A to its logical OR with the 
corresponding field of register B. Carry is not affected. 


A=AIC fs  - A ORC intoA 


fs =A opcode: OEFE 
cycles: 4+d 


fs = (P,WP,XS,X,S5,M,B,W) opcode: OEaE 
cycles: 4+d 


Set the fs field of register A to its logical OR with the 
corresponding field of register C. Carry is not affected. 
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A=A&B fs - A AND B into A 

fs = A opcode: OEFO 
cycles: 4+d 

fs = (P,WP,XS,X,S,M,B,W) opcode: 0Ea0 


cycles: 4+d 


Set the fs field of register A to its logical AND with the 
corresponding field of register B. Carry is not affected. 


A=A&C fs - A ANDC into A 


fs =A opcode: OEF6 
cycles: 4+d 

fs = (P,WP,XS,X,S,M,B,W) opcode: 0OEa6 
cycles: 4+d 


Set the fs field of register A to its logical AND with the 
corresponding field of register C. Carry is not affected. 


A=A+1 fs - Increment A 

fs=A opcode: E4 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Ba4 
cycles: od 


Increment the specified fs field of register A by one. Adjusts 
Carry. 
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A=A+A fs - Sum of A and A into A 


fs=A see opcode: 
cycles: 


fs = (P,UP,XS,X,S,M,B,U) opcode: 
cycles: 


Description 


C4 
T 


Aa4 
3+d 


Double the specified fs field of register A. Adjusts Carry. 


A=A+B fs - Sum of A and B into A 


fs =A opcode: 
cycles: 


fs = (P,WP,XS,X,S,M,B,W) opcode: 
cycles: 


CO 
7 


Aad 
3+d 


Set the specified fs field of register A to the sum of itself and 
the corresponding field of register B. Adjusts Carry. 


A=A+C fs - Sum of A and C into A 


fs =A opcode: 
cycles: 
fs = (P,WP,XS,X,S,M,B,W) opcode: 
cycles: 


CA 
7 


Aaa 
3 +d 


Set the specified fs field of register A to the sum of itself and 
the corresponding field of register C. Adjusts Carry. 
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A=A-1 fs - Decrement A 

fs =A opcode: CC 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Aac 


cycles: 3 +d 


Decrement the specified fs field of register A by one. Adjusts 
Carry. 


A=A-B fs - A minus B into A 

fs =A opcode: £0 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: Bad 


cycles: a 


Set the specified fs field of register A to the difference between 
itself and the corresponding field of register B. Adjusts Carry. 


A=A-C fs - A minus C into A 

fs =A opcode: EA 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Bad 
cycles: 3+d 


Set the specified fs field of register A to the difference between 
itself and the corresponding field of register C. Adjusts Carry. 
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A=B fs - Copy B toa 
fs 2A opcode: D4 
| cycles: 7 
fs = (P,WUP,XS,X,S,M,B,U) opcode: Ab4 
cycles: 3+d 


Copy the fs field of register B into the corresponding field of 
register A. Carry is not affected. 


A=B-A fs - B minus A into A 

fs =A - opcode: EC 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bact 


cycles: 3+d 


Set the specified fs field of register A to the inverse difference 
between itself and the corresponding field of register B. Adjusts 


A=C fs - Copy C toA 


fs =A opcode: DC 

ee 25 cycles: 7 

fs = (P,WP,XS,X,S5,M,B,W) opcode: AbdC 
cycles: 3 +d 


Copy the fs field of register C into the corresponding field of 
register A. Carry is not affected. 
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A=DATO fsd - Load A from memory 


fs =A opcode: 142 
cycles: 18 

fs = B opcode: 14A 
cycles: 15 

fs = (P,UP,XS,X,S,M,W) opcode: 152a 


cycles: 17 +d 


fs =d opcode: 15Ax (x=d-1) 
cycles: 16 +d 


The amount of data (d nibbles) specified by fsd will be transferred 
from the memory address pointed to by DO into the specified field 
of register A. The lowest-addressed nibble will be transferred 
into the lowest-order nibble of the register field, proceeding 
toward the higher-order nibbles. If fs = d, d nibbles are 
transferred into the register starting at nibble 0. See the 
section on “Loading Data From Memory" earlier in this chapter. 


A=DAT1 fsd - Load A from memory 


— ae ae me oe om ne ee oe 


fs =A opcode: 143 
cycles: 18 

fs = B opcode: 14B 
cycles: 15 

fs = (P,UP,XS,X,S,M,W) opcode: 153a 


cycles: 17 +d 


fs = 4d opcode: 15Bx (x=d-1) 
cycles: 16 +d 


The amount of data (d nibbles) specified by fsd will be transferred 
from the memory address pointed to by Dil into the specified field 
of register A. The lowest-addressed nibble will be transferred 
into the lowest-order nibble of the register field, proceeding 
toward the higher-order nibbles. If fs = d, d nibbles are 
transferred into the register starting at nibble 0. See the 
section on "Loading Data From Memory" earlier in this chapter. 
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A=IN - Load A with IN 


we oe ee oe ee ow oe ee 


opcode: 802 
cycles: 7 


Load the low-order 4 nibbles of the A register with the contents of 
the Input register. 


A=RO - Copy RO to A 


opcode: 110 
cycles: 19 


The contents of the scratch register RO is copied to the working 
register A. 


A=R1 - Copy R1 to A 


a ee a Oe ee 


opcode: 111 
cycles: 19 


The contents of the scratch register R1 is copied to the working 
register A. 


A=R2 - Copy R2 to A 


opcode: 112 
cycles: 19 


The contents of the scratch register R2 is copied to the vorking 
register A. 


16-44 


HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


A=R3 -- Copy R3 to A 


opcode: 113 
cycles: 19 


The contents of the scratch register R3 is copied to the working 
register A. 


A=R4 ~ Copy R4 to A 


opcode: 114 
cycles: 19 


The contents of the scratch register R4 is copied to the working 
register A. 


ABEX fs - Exchange Registers A and B 

fs =A opcode: DC 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: AbC 
cycles: 3+d 

Exchange the fs fields of registers of A and B. Carry is not 

affected. 

ACEX fs - Exchange Registers A and C 

fs =A opcode: DE 
cycles: 7 

fs = (P,UP,xXS,X,S,M,B,U) opcode: AbE 
cycles: 3 +d 


Exchange the fs fields of registers of A and C. Carry is not 
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affected. 

ADOEX - Exchange A and DO (nibs 0-4) 
opcode: 132 
cycles: 8 


Exchange the A field. of’ register A with Data pointer DO. Carry is 
not affected. 


ADOXS - Exchange A and DO short (nibs 0-3) 
“opcode: 13A 
cycles: 7 


Exchange the lower 4 nibbles of A with the lower 4 nibbles of Data 
pointer DO. Carry is not affected. 


AD1EX - Exchange A and D1 (nibs 0-4) 
/ - opcode: 133 
cycles: 8 


Exchange the A field of register A with Data pointer D1. Carry is 
not affected. po 
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AD1XS - Exchange A and Di short (nibs 0-3) 


opcode: 13B 
cycles: 7 


Exchange the lower 4 nibbles of A with the lower 4 nibbles of Data 
pointer Dl. Carry is not affected. 


AROEX - Exchange A and RO 
opcode: 120 
cycles: 19 


Exchange the contents of the working register A and the scratch 
register RO. 


AR1EX ~ Exchange A and Ri 


opcode: 1ei 
cycles: 19 


Exchange the contents of the working register A and the scratch 
register R1. 


AR2EX ~ Exchange A and R2 


opcode: i122 
cycles: 19 


Exchange the contents of the working register A and the scratch 
register R2. 
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AR3EX ~ Exchange A and R3 


opcode: 123 
cycles: 19 


Exchange the contents of the Merking register A and the scratch 
register R3. 


ARSEX ~- Exchange A and R4 


opcode: 124 
cycles: 19 


Exchange the contents of the working register A and the scratch 
register R4. 


ASL fs - A Shift Left 


wwe ww eee a 


fs =A opcode: FO 
cycles: 7 
fs = (P,UP,XS,X,S,M,B,U) opcode: Bb0 


cycles: 3+d 


Shift the contents of the specified fs field of register A left one 
nibble, without affecting the rest of the register. The nibble 
shifted off the left end of the field is lost. The new low-order 
nibble of the field is zero. The Sticky Bit (SB) is not affected. 


16-48 





HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


ASLC - A Shift Left Circular 
opcode: 810 
cycles: el 


Circular shift register A left one nibble. Operates onall 16 
digits. The Sticky Bit (SB) is not affected. 


ASR fs - A Shift Right 

fs =A opcode: F4 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bb4 
cycles: 3 +d 


Shift the contents of the specified fs field of register A right 
one nibble, without affecting the rest of the register. The nibble 
shifted off the right end of the field is lost, but the Sticky Bit 
(SB) is set if the nibble was non-zero. The new high-order nibble 
of the field is zero. 


ASRB - A Shift Right Bit 


opcode: 81iC 
cycles: 20 


Shift register A right one bit. Operates on all 16 digits. The 
bit shifted off the end is lost, but the Sticky Bit (SB) is set if 
it was non-zero. The new high-order bit of the register is zero. 
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ASRC -~ A Shift Right Circular 
opcode: 814 
cycles: 2i 


Circular shift register A right one nibble. Operates on all 16 
digits. The Sticky Bit (SB) is set if the nibble shifted from 
low-order around to high-order position was non-zero. 


B=-B fs - Two’s complement of B-into B™- 
fe=A °° : + opcode: F9 
cycles; 7 


fe * (P,UP,XS,X,S,M,B,W) opcode: Bb9 
a cycles: 3+4 


Complement the specified fs field of B. Complement is two’s 
complement if in HEX mode, ten’s complement if in DEC mode. Carry 
is set if the field is not zero, else Carry is cleared. 


B=-B-1 fs - One’s complement of B into B 
fs = A. opcode: FD 
cycles: 7 


fs = (P,WP,XS,X,S5,M,B,U) opcode: BbD 


cycles: 3+d 


Perform a one’s Complement on the specified fs field of B. Carry 
is always cleared. 
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B=0 fs - Set A equal to 0 

fs =A opcode: Di 
cycles: 7 

fs = (P,WUP,XS,X,S,M,B,W) opcode: Abl 
cycles: 3 +d 


Set the specified fs field of B to zero. Carry is not affected. 


B=A fs - Copy A to B 


fs =A opcode: D8 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Abs 
cycles: 3 +d 


Copy the fs field of register A into the corresponding field of 
register B. Carry is not affected. 


B=B!A fs - BORA into B 


fs =A opcode: OEFC 
cycles: 4+d 

fs = (P,UP,XS,X,5,M,B,W) opcode: OEaC 
cycles: 4 +d 


Set the fs field of register B to its logical OR with the 
corresponding field of register A. Carry is not affected. 
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B=B'iIC fs - BORC into B 


fs=A opcode: OEF9 
: cycles: 4+d 


fs = (P,WP,XS,X,S,M,B,W) opcode: 0Ea3 
cycles: 4+4d 


Set the fs field of register B to its logical OR with the 
corresponding field of register C. Carry is not affected. 


B=B&A fs - 8B AND A into B 


fs =A opcode: OEF4 
cycles: 4+d 


fs = (P,UP,XS,X,S,M,B,W) opcode: 0Ea4 
cycles: 4+d 


Set the fs field of register B to its logical AND with the 
corresponding field of register A. Carry is not affected. 


B=B&C fs - BAND C into B 

fs =A opcode: OEFI1 
cycles: 4+d 

fs = (P,UP,XS,X,S,M,B,W) opcode: OEal 


cycles: 4+d 


Set the fs field of register B to its logical AND with the 
corresponding field of register C. Carry is not affected. — 
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B=B+1 fs - Increment B 

fs =A opcode: E5 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bad 
cycles: 3 +d 


Increment the specified fs field of register B by one. Adjusts 
Carry. 


B=B+A fs - Sum of B and A into B 

fs =A opcode: C8 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: Aas 


cycles: 3 +d 


Set the specified fs field of register B to the sum of itself and 
the corresponding field of register A. Adjusts Carry. 


B=B+B fs - Sum of B and B into B 

fs =A opcode: C5 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Aad 
cycles: 3 +d 


Double the specified fs field of register B. Adjusts Carry. 
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B=B+C fs - Sum of B and C into B 

fs = A | opcode: Ci 
; cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Aal 


cycles: 3 +d 


Set the specified fs field of register B to the sum of itself and 
the corresponding field of register C. Adjusts Carry. 


B=B-1 fs - Decrement B 

fs =A opcode: CD 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: AaD 


cycles: 3+¢d 


Decrement the specified fs field of register B by one. Adjusts 
Carry. 


B=B-A fs - 8B minus A into B 


fs:A opcode: E8 

a cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bas 
cycles: 3 +d 


Set the specified fs field of register B to the difference between 
itself and the corresponding field of register A. Adjusts Carry. 
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B=B-C fs - 8B minus C into B 

fs =A opcode: Ei 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Bal 
cycles: 3+d 


Set the specified fs field of register B to the difference between 
itself and the corresponding field of register C. Adjusts Carry. 


B=C fs - Copy C to B 


fs =A opcode: D5 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Ab5 
cycles: 3+¢d 


Copy the fs field of register C into the corresponding field of 
register B. Carry is not affected. 


B=C-B fs - C minus B into B 

fs =A opcode: ED 
cycles: T 

fs = (P,WP,XS,X,5,M,B,U) opcode: BaD 


cycles; 3 +d 
Set the specified fs field of register B to the inverse difference 


between itself and the corresponding field of register C. Adjusts 
Carry. 
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BAEX fs - 
fs =A 
fs = (P,UP,XS,X,S.M,B,u) 


Exchange the fs fields of registers of B and A. 


affected. 


fs = (P,UP,XS,X,S.M,B,u) 


Exchange the fs fields of registers of B and C. 


affected. 


B Shift Left 


fs = (P,WP,XS,X,S,M,B,u) 


opcode: 
cycles: 


opcode: 
cycles: 


opcode: 
cycles: 


opcode: 
cycles: 


opcode: 
cycles: 


opcode: 
cycles: 


Exchange Registers B and A 
DC 


T 


AbC 


3 +d 


Carry is not 


Exchange Registers B and C 


DD 
7 


AbD 


3+d 


Carry is not 


Fi 
- 


Bb1 
3 +d 


Shift the contents of the specified fs field of register B left one 


nibble, without 


nibble of the field is zero. 


affecting the rest of the register. 
shifted off the left end of the field is lost. 


The nibble 
The new low-order 


The Sticky Bit (SB) is not affected. 
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BSLC - B Shift Left Circular 
opcode: 811 
cycles: 21 


Circular shift register B left one nibble. Operates onall 16 
digits. The Sticky Bit (SB) is not affected. 


BSR fs - B Shift Right 

fs =A opcode: F5 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Bb5 
cycles: 3 +d 


Shift the contents of the specified fs field of register B right 
one nibble, without affecting the rest of the register. The nibble 
shifted off the right end of the field is lost, but the Sticky Bit 
(SB) is set if the nibble was non-zero. The new high-order nibble 
of the field is zero. 


BSRB - B Shift Right Bit 


opcode: 81D 
cycles; 20 


Shift register Bright one bit. Operates on all 16 digits. The 


bit shifted off the end is lost, but the Sticky Bit (SB) is set if 
it was non-zero. The new high-order bit of the register is zero. 
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BSRC - B Shift Right Circular 
opcode: 815 
cycles: 21 


Circular shift register B right one nibble. Operates on all 16 
digits. The Sticky Bit (SB) is set if the nibble shifted from 
low-order around to high-order position was non-zero. 


BUSCC - Bus Command “C" 
opcode: 80B 
cycles: 6 


Enters the HP-71 bus command "C" onto the system bus {this command 
is reserved for later use). No other operation is performed. See 
the "HP-71 Hardware Specification” for more information. 


C+P+1 ~ Increment C by One Plus P Pointer 
opcode: 809 
cycles: 8 


The A field of the C register is incremented by one plus the value 
of the P pointer. Arithmetic is always in hex mode. Adjusts 
Carry. 


C=- fs - Two’s complement of C into C 

fs=A opcode: FA 
cycles: t 

fs = (P,WP,XS,X,S,M,B,U) opcode: BbA 
cycles: 3 +d 


Complement the specified fs field of C. Complement is two’s 
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complement if in HEX mode, ten’s complement if in DEC mode. Carry 
is set if the field is not zero, else Carry is cleared. 


C=-C-1 fs - One’s complement of C into C 

fs =A opcode: FE 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: BbE 
cycles: 3+d 


Perform a one’s complement on the specified fs field of C. Carry 
is always cleared. 


C=0 fs - Set C equal to 0 


fs=A opcode: D2 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Ab2 
cycles: 3 +d 


Set the specified fs field of C to zero. Carry is not affected. 


C=A fs - Copy A toC 


fs =A opcode: D6 
cycles: 7 
fs = (P,WP,XS,X,S,M,B,U) opcode: Ab6 


cycles: 3 +d 


Copy the fs field of register A into the corresponding field of 
register C. Carry is not affected. 
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C=A-C fs - A mimusC into Cc 
fs=A opcode: EE 
cycles: 7 
fs = (P,UP,XS,X,S,M,B,U) opcode: BaE 
cycles: 3+d 


Set the specified fs field of register C to the inverse difference 
between itself and the corresponding field of register A. Adjusts 
Carry. 


C=B fs - Copy B to C 


fs=A opcode: D9 
cycles: 7 


fs = (P,WP,XS,X,S,M,B,W) opcode: Ab9 
cycles: 3 +d 


Copy the fs field of register B into the corresponding field of 
register C. Carry is not affected. 


C=C!A fs - CORA into C 


fs =A opcode: OEFE 
cycles: 4+d 


fs = (P,UP,XS,X,S,M,B,U) opcode: OEaE 
cycles: 4+d 


Set the fs field of register C to its logical OR with the 
corresponding field of register A. Carry is not affected. 


16-60 





HP-71 Software IDS - Detailed Design Description 


HP-71 Assembler Instruction Set 


C=C!B fs - CORB into C 

fs=A opcode: 
cycles: 

fs = (P,UP,XS,X,S,M,B,W) opcode: 
cycles: 


Set the fs field of register C 
corresponding field of register B. 


C=C'D fs - CORD intoc 

fs =A opcode: 
cycles: 

fs = (P,WP,XS,X,S,M,B,U) opcode: 
cycles: 


Set the fs field of register C 
corresponding field of register D. 


C=C&A fs - C AND A into A 

fs =A opcode: 
cycles: 

fs = (P,WP,XS,X,S,M,B,wW) opcode: 
cycles: 

Set the fs field of register C 


corresponding field of register A. 


OEFD 
4+d 


OEaD 
4+4 


to its logical OR with 
Carry is not affected, 


the 


OEFF 
4+d 


OEaF 
4+d 


to its logical OR with 
Carry is not affected. 


the 


OEF2 
4+4 


OEa2 
44d 


to its logical AND with the 


Carry is not affected. 
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C=C&B fs - C AND B into Cc 

fs =A | opcode: 
cycles: 

fs = (P,WUP,XS,X,S,M,B,W) opcode: 
cycles: 


Set the fs field of register C 
corresponding field of register B. 


C=C&D fs - CAND D into Cc 


ee 


fs =A opcode: 
cycles: 
fa = (P,UP,XS,X,S,M,B,W) opcode: 
cycles: 


Set the fs field of register C 
corresponding field of register D. 


C=C+1 fs - Increment C 

fs=A opcode: 
cycles: 

fs = (P,UP,XS,X,S,M,B,W) opcode: 
cycles: 


OEF5 
4+d 


0Ead 
4+d 


to its logical AND with the 
Carry is not affected. 


QEF7 
4+ 


OEa7 
4+d 


to its logical AND with the 
Carry is not affected. 


E6 
7 


Ba6o 
3 +d 


Increment the specified fs field of register C by one. Adjusts 


Carry. 
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C=C+A fs - Sum of C and A into Cc 

fs =A opcode: C2 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Aa2 
cycles: 3+d 


Set the specified fs field of register C to the sum of itself and 
the corresponding field of register A. Adjusts Carry. 


C=C+B fs - Sum of C and B into Cc 


ee ee ee ee 


fs =A opcode: C9 
cycies: 7 

fs = (P,WP,XS,X,S,M,B,U) opcode: Aag 
cycles: 3 +d 


Set the specified fs field of register C to the sum of itself and 
the corresponding field of register B. Adjusts Carry. 


C=C+C fs - Sum of C and C into C 


fs =A opcode: C6 
cycles: a 

fs = (P,WP,XS,X,5,M,B,W) opcode: Aa6 
cycles: 3 +d 


Double the specified fs field of register C. Adjusts Carry. 
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C=C+D fs - Sum of C and D into C 


ewe ee we oe we oe ee 


fs =A | opcode: CB 
. cycles: e 


fs = (P,UP,XS,X,S,M,B,W) opcode: AaB 
cycles: 3+d 


Set the specified fs field of register C to the sum of itself and 
the corresponding field of register D. Adjusts Carry. 


C=C-1 fs - Decrement C 


— ae ee ee ee ee ee oe 


fs =A opcode: CE 
cycles: 7 


fs = (P,UP,XS,X,S,M,B,W) opcode: AaE 
cycles: 3+d 


Decrement the specified fs field of register C by one. Adjusts 
Carry. 


C=C-A fs - C mims A into C 

fs =A opcode: E2 
cycles: 7 

fs = (P,WUP,XS,X,S,M,B,W) opcode: Ba2 


cycles: 3+d 


Set the specified fs field of register C to the difference between 
itself and the corresponding field of register A. Adjusts Carry. 
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C=C-B fs - C mimus B into C 

fs =A opcode: E9 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bag 
cycles: 3 +d 


Set the specified fs field of register C to the difference between 
itself and the corresponding field of register B. Adjusts Carry. 


C=C-D fs - C minus D into C 

fs =A opcode: EB 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: BaB 


cycles: 3 +d 


Set the specified fs field of register C to the difference between 
itself and the corresponding field of register D. Adjusts Carry. 


C=D fs - Copy D to C 

fs =A opcode: DB 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: AbdB 
cycles: 3 4d 


Copy the fs field of register D into the corresponding field of 
register C. Carry is not affected. 
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C=DATO fsd - Load C from memory 


ee ne we me ee ee oe ee 


fa =A | opcode: i146 
: cycles: 18 
fs = B opcode: i14E 
cycles: 15 

fs = (P,WP,XS,X,S,M,W) opcode: 156a 


cycles: 17 +d 


fae\ed opcode: i5Ex (x=d-1) 
cycles: 16 +d 


The amount of data (d nibbles) specified by fsd will be transferred 
from the memory address pointed to by DO into the specified field 
of register C. The lowest-addressed nibble will be transferred 
into the lowest-order nibble of the register field, proceeding 
toward the higher-order nibbles. If fs = 4d, 4d nibbles are 
transferred into the register starting at nibble 0. See the 


section on "Loading Data From Memory" earlier in this chapter. 


C=DAT1 fsd - Load C from memory 


— ae ow ee ee or we 


fs =A opcode: 147 
cycles: 18 
fs = B opcode: 14F 
cycles: 15 
fs = (P,UP,XS,X,S,M,U) opcode: 157a 
cycles: 17 +d 
fs zd opcode: 15Fx (x=d-1) 


cycles; 16 +d 


The amount of data (d nibbles) specified by fsd will be transferred 
from the memory address pointed to by D1 into the specified field 
of register C. The lowest-addressed nibble will be transferred 
into the lowest-order nibble of the register field, proceeding 
toward the higher-order nibbles. If fs = d, d nibbles are 
transferred into the register starting at nibble 0. See the 
section on “Loading Data From Memory" earlier in this chapter. 
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C=ID ~ Request chip ID 
opcode: 806 
cycles: 11 


The chip which has its DAISY-IN line high and its configuration 
flag low will send its 5 nibble ID register to the system bus which 
will be loaded into the low-order 5 nibbles {A field} of the C 


register. See the "“HP-71 Hardware Specification" for more 
information. 
C=IN - Load C with IN 

opcode: 803 

cycles: 7 


Load the low-order 4 nibbles of the C register with the contents of 
the Input register. See the “HP-71 Hardware Specification" for 
more information. 


C=P n - Copy P Pointer into Nibble n of C 


— ee ee ee ee oe oe we 


opcode: 80CN 
cycles: 6 


Copy P pointer into C register at digit position specified by n. 


C=R0 - Copy RO to C 


ee ee ee ee ee oe oe 


opcode: 118 
cycles: 19 


The contents of the scratch register RO is copied to the working 
register C. 
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C=R1 - Copy 


ee me eee ee cee ee aes 


The contents of 
register C. 


ow oe ee et oe ee oe 


The contents of 
register C. 


The contents of 
register C. 


ee oe we ee ee we oe owe 


The contents of 
register C. 


Rl to C 


opcode: 119 
cycles: 19 


the scratch register R1 is copied to the working 


R2 to C 


opcode: 114A 
cycles: 19 


the scratch register R2 is copied to the working 


R3 to C 


opcode: 11B 
cycles: 19 


the scratch register R3 is copied to the working 


R4 to C 


opcode: 11C 
cycles: i9 


the scratch register R4 is copied to the working 
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C=RSTK - Pop stack to C 
opcode: 07 
cycles: 8 


Pop the top-most address off of the hardware return stack, placing 
the address in the lower 5 nibbles (A field) of register C. The 
high-order nibbles of C are unchanged. As the address is popped 
from the return stack, a zero address is inserted at the bottom of 
the stack. Compare with the RIN mnemonic. 


C=ST - Status to C 
opcode: 09 
cycles: 6 


Copy the low-order 12 bits of the status register into the 
low-order 12 bits (X field) of the C register. 


CAEX fs - Exchange Registers C and A 

fs =A opcode: DE 
cycles: ie 

fs = (P,WP,XS,X,S,M,B,W) opcode: AbE 
cycles: 3 +d 


Exchange the fs fields of registers of C and A. Carry is not 
affected. 
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CBEX fs - Exchange Registers C and B 
fs = A opcode: DD 
cycles: f 

fs = (P,WP,XS,X,S,M,B,U) opcode: AbD 

cycles: 3 +d 
Exchange the fs fields of registers of C and B. Carry is not 
affected. 
CDOEX - Exchange C and DO (nibs 0-4) 

opcode: 136 

cycles: 8 


Exchange the A field of register C with Data pointer DO. Carry is 
not affected. 


CDOXS - Exchange C and DO short (nibs 0-3) 
opcode: 13E 
cycles: 7 


Exchange the lower 4 nibbles of C with the lower 4 nibbles of Data 
pointer DO. Carry is not affected. 


CD1EX ~ Exchange C and D1 (nibs 0-4) 
opcode: 137 
cycles: 8 


Exchange the A field of register C with Data pointer Di. Carry is 
not affected. 
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CD1ixs - Exchange C and Bl short (nibs 0-3) 
opcode: 13F 
cycles: 7 


Exchange the lower 4 nibbles of C with the lower 4 nibbles of Data 
pointer Di. Carry is not affected. 


CDEX fs - Exchange Registers C and D 
fs =A opcode: DF 
cycles: 7 
fs = (P,WP,XS,X,S,M,B,W) opcode: ADF 
cycles: Je 3 
Exchange the fs fields of registers of C and D. Carry is not 
affected, 
CLRHST ~ Clear Hardware Status bits 
opccede: 82F 
cycles: 5 


Clears the 4 Hardware Status bits XM, SB, SR and MP. Note that the 
opcode is actually 82x, where x is merely a mask for which Hardware 
Status bits to clear, as follows: 


bit 0 - External Module Missing bit (see XM=0 mnemonic) 
bit 1 - Sticky Bit (see SB=0 mnemonic) 
bit 2 - Service Request bit (see SR=0 mnemonic) 
bit 3 - Module Pulled bit (see MP=0 mnemonic} 


For example opcode 829 clears XM and MP. Although there is no 
mnemonic for this, the opcode can be inserted into the code by 
using, for example, NIBHEX 829. 
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CLRST ~ Clear Program Status 
opcode: 08 
cycles: 6 


Clear the low-order 12 bits (SO through $11) of the Program Status 
register ST. 


CONFIG - Configure 
opcode: 805 
cycles: 11 


Copy the low-order 5 nibbles (A field) of the C register into the 
Configuration register of the chip which has its DAISY-IN line high 
and its configuration flag low. See the "HP~71 Hardware 
Specification" for information. 


CPEX on - Exchange Nibble n of C With P Pointer 
opcode: 80FN 
cycles: 6 


Exchange the P pointer with digit n of the C register. 


CROEX ~ Exchange C and RO 


opcode: 128 
cycles: 193 


Exchange the contents of the working register C and the scratch 
register RO. 
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CRiEX - Exchange C and R1 


opcode: 129 
cycles: 19 


Exchange the contents of the working register C and the scratch 
register Rl. 


Exchange the contents of the working register C and the scratch 
register R3. 


CR4EX - Exchange C and R4 


| 

CR2EX ~ Exchange C and Re ‘ 

opcode: 12A 

cycles: 19 
Exchange the contents of the working register C and the scratch 
register Re. 
CR3EX ~ Exchange C and R3 

opcode: 12B 

cycles: 19 


opcode: 12C 
cycles: 19 


Exchange the contents of the working register C and the scratch 
register R4. 
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CSL fs - C Shift Left 

fs =A | opcode: F2 
. cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Bb2 


cycles: 3+d 


Shift the contents of the specified fs field of register C left one 
nibble, without affecting the rest.of the register. The nibble 
shifted off the left end of the field is lost. The new low-order 
nibble of the field is zero. The Sticky Bit (SB) is not affected. 


CSLC  $-C Shift Left Circular 
opcode: 812 
cycles: 21 


Circular shift register C left one nibble. Operates onail 16 
digits. The Sticky Bit (SB) is not affected. 


CSR fs - C Shift Right 
fs=A opcode: F6 
cycles: 7 


fs = (P,UP,XS,X,S,M,B,W) opcode: Bb6 
cycles; 3+d 


Shift the contents of the specified fs field of register C right 
one nibble, without affecting the rest of the register. The nibble 
shifted off the right end of the field is lost, but the Sticky Bit 
(SB) is set if the nibble was non-zero. The new high-order nibble 
of the field is zero. 
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CSRB - C Shift Right Bit 
opcode: 81E 
cycles: 20 


Shift register C right one bit. Operates on all 16 digits. The 
bit shifted off the end is lost, but the Sticky Bit (SB) is set if 
it was non-zero. The new high-order bit of the register is zero. 


CSRC - C Shift Right Circular 
opcode: 816 
cycles: 2i 
Circular shift register C right one nibble. Operates on all 16 


digits. The Sticky Bit (SB) is set if the nibble shifted from 
low-order around to high-order position was non-zero. 


CSTEX - Exchange Status 
opcode: OB 
cycles: 6 


Exchange the low-order 12 bits (SQ through $11) of the Progran 
Status register ST with the low-order 12 bits of the C register. 


DO=(2) nn - Load 2 Nibbles Into DO 


opcode: 19nn 
cycles: 4 


Load the low-order two nibbles of DO with nn. The upper nibbles of 


DO remain unchanged. Any overflow is ignored by the assembler. 
The assembled digits of mn are stored in the opcode in reverse 
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order so that when the instruction is executed the data will be 
loaded into the register with the intended orientation. See the 
section on “Loading Data From Memory" earlier in this chapter. 


DO=(4) nnnn - Load 4 Nibbles Into DO 
opcode: iAnnnn 
cycles: 6 


Load the low-order four nibbles of DO with nnnn. The upper nibble 
of DO remains unchanged. Any overflow is ignored by the assembler. 
The assembled digits of nnnn are stored in the opcode in reverse 
order so that when the instruction is executed the data will be 
loaded into the register with the intended orientation. See the 
section on “Loading Data From Memory" earlier in this chapter. 4 


opcode: i1Bnnnnn 
cycles: 7 


Load all five nibbles of DO with mnnnn. Any overflow is ignored by 
the assembler. The assembled digits of nnnnn are stored in the 
opcode in reverse order so that when the instruction is executed 
the data will be loaded into the register with the intended 
orientation. See the section on “Loading Data From Memory" earlier 
in this chapter. 


mew ewe oe 


opcode: 130 
cycles: 8 


The A field of register A is copied into Data pointer register DO. 
Carry is not affected. 


DO=A - Copy A to DO (nibs 0-4) 
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DO=AS - Copy A to DO short (nibs 0-3) 
opcode: 138 
cycles: 7 


The lower 4 nibbles of A are copied into the lower 4 nibbles of 
Data pointer register DO. Carry is not affected. 


DO=C - Copy C to DO (nibs 0-4) 
opcode: 134 
cycles: 8 


The A field of register C is copied into Data pointer register DO. 
Carry is not affected. 


DO=CS - Copy C to DO short (nibs 0-3) 
opcode: 13C 
cycles: i 


The louver 4 nibbles of C are copied into the lower 4 nibbles of 
Data pointer register DO. Carry is not affected. 


DO=DO+ n ~- Addn to DO (1<=n<=16) 


opcode: 16x (x=n-1) 
cycles: 7 


Increment DO by n. Adjusts Carry. 


Lo=27 


a 
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opcode: 18x (x=n-1) 
cycles: 7 


Decrement DO by n. Adjusts Carry. 


DO?HEX hh - Load DO with hex constant hh 
opcode: 19hh 
cycles: 4 


Load the low-order two nibbles of DO with the hex constant hh. The 
upper nibbles of DO remain unchanged. The digits of hh are stored 
in the opcode in reverse order so that when the instruction is 
executed the data will be loaded into the register with the 
intended orientation. See the section on "Loading Data From 
Memory” earlier in this chapter. 


DO2HEX hhhh - Load DO with hex constant hhhh 
opcode: iAhhhh 
cycles: 6 


Load the low-order four nibbles of DO with the hex constant hhhh. 
The upper nibble of DO remains unchanged. The digits of hhhh are 
stored in the opcode in reverse order so that when the instruction 
is executed the data will be loaded into the register with the 
intended orientation. See the section on “Loading Data from 
Memory’ earlier in this chapter. 
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DO=HEX hhhhh - Load DO with hex constant hhhhh 
opcode: i1Bhhhhh 
cycles: e 


Load all five nibbles of DO with the hex constant hhhhh. The 
digits of hhhhh are stored in the opcode in reverse order so that 
when the instruction is executed the data will be loaded into the 
register with the intended orientation. See the section on 
"Loading Data From Memory” earlier in this chapter. 


Di=(2) nn - Load 2 Nibbles Into Dl 
opcode: iDnn 
cycles: 4 


Load the low-order two nibbles of D1 with nn. The upper nibbles of 
Dl remain unchanged. Any overflow is ignored by the assembler. 
The assembled digits of nn are stored in the opcode in reverse 
order so that when the instruction is executed the data will be 
loaded into the register with the intended orientation. see the 
section on “Loading Data From Memory” earlier in this chapter. 


Di=(4) mnnn - Load 4 Nibbles Into Di 
opcode: 1Ennnn 
cycles: 6 


Load the low-order four nibbles of Di with nnnn. The upper nibble 
of Dl remains unchanged. Any overflow is ignored by the assembler. 
The assembled digits of nnnn are stored in the opcode in reverse 
order so that when the instruction is executed the data will be 
loaded into the register with the intended orientation. See the 
section on "Loading Data From Memory” earlier in this chapter. 


16-79 


7 
_ 


| 


HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


we ee we ee ee ee oe me 


opcode: i1Fnnnnn 

cycles: 7 
Load all five nibbles of Dl with nnnnn. Any overflow is ignored by 
the assembler. The assembled digits of nnnnn are stored in the 
opcode in reverse order so that when the instruction is executed 
the data will be loaded into the register with the intended 
orientation. See the section on "Loading Data From Memory” earlier 
in this chapter. 


D1=A -~ Copy A to Di (nibs 0-4) 
opcode: 131 
cycles: 8 


The A field of register A is copied into Data pointer register D1. 
Carry is not affected. 


D1=AS - Copy A to D1 short (nibs 0-3) 
opcode: 139 
cycles: 7 


The lower 4 nibbles of A are copied into the lower 4 nibbles of 
Data pointer register D1. Carry is not affected. 


D1=C - Copy C to Di (nibs 0-4) 
opcode: 135 
cycles: 8 


The A field of register C is copied into Data pointer register D1. 
Carry is not affected. 
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i 
| 
Bi=CS -~ Copy C to Di short (nibs 0-3) 


opcode: 13D 
cycles: 7 


The lover 4 nibbles of C are copied into the lower 4 nibbles of 
Data pointer register Dl. Carry is not affected. 


Di=Dl+ mn - Add nto Dil (1<=n<=16) 
opcode: 17x (x=n-1) 
cycles: 7 


Increment Dl by n. Adjusts Carry. 


{ 

| 

Di=Dl- mn - Subtract n from D1 (1<=n<=16) 
opcode: 1CX (X=n-1) | 

cycles: 7 | 
| 

{ 

| 

{ 


Decrement Dl by n. Adjusts Carry. 


D1=HEX hh - Load Dil with hex constant hh 
opcode: 1Dhh 
cycles: 4 


Load the low-order two nibbles of Di with the hex constant hh. The 
upper nibbles of Dl remain unchanged. The digits of hh are stored 
in the opcode in reverse order so that when the instruction is 
executed the data will be loaded into the register with the 
intended orientation. See the section on “Loading Data From 
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Memory” earlier in this chapter. 


D1i=HEX hhhh - Load D1 with hex constant hhhh 
opcode: 1Ehhhh 
cycles: 6 


Load the low-order four nibbles of D1 with the hex constant hhhh. 
The upper nibble of D1 remains unchanged. The digits of hhhh are 
stored in the opcode in reverse order so that when the instruction 
is executed the data will be loaded into the register with the 
intended orientation. See the section on “Loading Data From 
Memory" earlier in this chapter. 


D1=HEX hhnhhh - Load D1 with hex constant hhhhh 
opcode: 1Fhhhhh 
cycles: 7 


Load all five nibbles of D1 with the hex constant hhhhh. The 
digits of hhhhh are stored in the opcode in reverse order so that 
when the instruction is executed the data will be loaded into the 
register with the intended orientation. See the section on 
“Loading Data From Memory" earlier in this chapter. 


D=-D fs - Two’s complement of D into D 
fs=A opcode: FB 
cycles: 7 


fs = (P,UP,XS,X,S,M,B,W) opcode: BbB 


cycles: 3 +d 
Complement the specified fs field of D. Complement is two’s 


complement if in HEX mode, ten’s complement if in DEC mode. Carry 
is set if the field is not zero, else Carry is cleared. 
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D=-D-1 fs - One’s complement of D into D 

fs =A opcode: fFF 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,U) opcode: BbdF 
cycles: 3 +d 


Perform a one’s complement on the specified fs field of D. Carry 
is always cleared. 


D=0 fs - Set D equal to 0 

fs =A opcode: D3 
cycles: ¢ 

fs = (P,WP,XS,X,S,M,B,W) opcode: Ab3 


cycles: o <q 


Set the specified fs field of D to zero. Carry is not affected. 


D=C fs - Copy C to D 


fs=A opcode: D7 
cycles: _ 
fs = (P,WP,XS,X,S,M,B,U) opcode: Ab7 


cycles: 3 +d 


Copy the fs field of register C into the corresponding field of 
register D. Carry is not affected. 
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D=C-D fs - C mimus D into D 

fs=A —_ opcode: ED 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: BaD 


cycles: 3 +d 


Set the specified fs field of register D to the inverse difference 
between itself and the corresponding field of register C. Adjusts 
Carry. 


D=D'C fs - DORC into D 


— we aw oe oe on oe ee 


fs = A opcode: OEFF 
cycles: 4+d 


fs = (P,UP,XS,X,S,M,B,W) opcode: OEaF 
cycles; 4+d 


Set the fs field of register D to its logical OR with the 
corresponding field of register C. Carry is not affected. 


D=D&C fs - D ANDC into D 


fs = A opcode: OEF7 
cycles: 4+d 

fs = (P,UP,XS,X,S,M,B,U) opcode: 0OEa7 
cycles: 4 +d 


Set the fs field of register D to its logical AND with the 
corresponding field of register C. Carry is not affected. 
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D=D+1 fs - Increment D 

fs =A opcode: E7 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Ba7 
cycles: 3 +d 


Increment the specified fs field of register D by one. Adjusts 
Carry. 


D=D+C fs - Sum of D and C into D 

fs =A opcode: C3 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: Aa3 


cycles: 3 +d 


Set the specified fs field of register D to the sum of itself and 
the corresponding field of register C. Adjusts Carry. 


D=D+D fs - Sum of D and D into D 

fs = A opcode: C7 
cycles: d 

fs = (P,WP,XS,X,S,M,B,W) opcode: Aa7 
cycles: 3 +d 


Double the specified fs field of register D. Adjusts Carry. 
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D=D-1 fs - Decrement D 

fs: A | opcode: CF 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: AaF 


cycles: 3+d 


Decrement the specified fs field of register D by one. Adjusts 
Carry. 


D=D-C fs - D minus C into D 

fs =A opcode: E3 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,U) opcode: Ba3 


cycles: 3 +d 


Set the specified fs field of register D to the difference between 
itself and the corresponding field of register C. Adjusts Carry. 


DATO=A fsd - Load memory from A 


fs=A opcode: 146 
cycles: 17 

fs = B opcode: 14E 
cycles: 14 

fs = (P,UP,XS,X,S,M,U) opcode: 156a 


cycles: 16 +d 
fs 


“ 
Ou 


opcode: 15Ex (x=d-1) 
cycles: 15 +d 


The amount of data (d nibbles) specified by fsd will be written to 
the memory address pointed to by DO from the specified field of 
register A. The lowest-order nibble of the register field will be 
written to the lowest-addressed nibble of memory, proceeding toward 
the higher-order nibbles. If fs = d,d nibbles are written to 
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memory starting from nibble 0 of the register. See the section on 
“Storing Data Into Memory" earlier in this chapter. 


fs=A opcode: 144 
cycles: 17 

fs = B opcode: 14A 
cycles: 14 

fs = (P,WP,XS,X,S,M,U) opcode: 154a 


cycles: 16 +d 


| 
DATO=C fsd - Store into memory from C 
fs = 4d . opcode: 15Ax (x=d-1) 

cycles: 15 +d 

The amount of data (d nibbles) specified by fsd will be written to 
the memory address pointed to by DO from the specified field of 
register C. The lowest-order nibble of the register field will be 
written to the lowest-addressed nibble of memory, proceeding toward 
the higher-order nibbles. If fs = d,d nibbles are written to _ 
memory Starting from nibble 0 of the register. See the section on 
“Storing Data Into Memory” earlier in this chapter. 


DAT1=A fs - Store into memory from A 

fs =A opcode: 141 
cycles: 17 

fs = B opcode: 149 
cycles: 14 

fs = (P,UP,XS,X,S,M,U) opcode: 15la 


cycles: 16 +d 


fs=d opcode: 159x (x=d-1) 
cycles: 15 +d 


The amount of data (d nibbles) specified by fsd will be written to 
the memory address pointed to by Dl from the specified field of 


16-87 









HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


register A. The lowest-order nibble of the register field will be 
written te the lowest-addressed nibble of memory, proceeding toward 
the higher-order nibbles. If fs = d,d nibbles are written to 
memory Starting from nibble 0 of the register. See the section on 
“Storing Data Into Memory” earlier in this chapter. 


DAT1=C fsd - Store into memory from C 


fs =A opcode: 145 
cycles: 17 

fs = B opcode: 14D 
cycles: 14 

fs = (P,WP,XS,X,S,M,U) opcode: 155a 


cycles: 16 +d 
fs 


“ 
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opcode: 15Dx (x=d-1) 
cycles: 15 +d 


The amount of data (d nibbles) specified by fsd will be written to 
the memory address pointed to by D1 from the specified field of 
register C. The lowest-order nibble of the register field will be 
written to the lowest-addressed nibble of memory, proceeding toward 
the higher-order nibbles. If fs = d,d nibbles are written to 
memory starting from nibble 0 of the register. See the section on 
"Storing Data Into Memory” earlier in this chapter. 


DCEX fs - Exchange Registers D and C 


— ew ee we om ee ow oe 


fs =A opcode: DF 
cycles: 7 
fs = (P,WP,XS,X,S,M,B,W) opcode: ADF 


cycles: 3+d 


Exchange the fs fields of registers of D and C. Carry is not 
affected. 
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DSL fs - D Shift Left 


fs =A opcode: fF3 
cycles: 7 

fs = (P,WP,XS,X,S,M,B,W) opcode: Bb3 
cycles: 3 +d 


Shift the contents of the specified fs field of register D left one 
nibble, without affecting the rest of the register. The nibble 
shifted off the left end of the field is lost. The new low-order 
nibble of the field is zero. The Sticky Bit (SB) is not affected. 


DSLC - D Shift Left Circular 
opcode: 813 
cycles: 21 


Circular shift register D left one nibble. Operates onall 16 
digits. The Sticky Bit (SB) is not affected. 


a 


DSR fs - D Shift Right 

fs =A opcode: [F7 
cycles: 7 

fs = (P,UP,XS,X,S,M,B,W) opcode: Bb7 


cycles: 3 +d 


Shift the contents of the specified fs field of register D right 
one nibble, without affecting the rest of the register. The nibble 
shifted off the right end of the field is lost, but the Sticky Bit 
(SB) is set if the nibble was non-zero. The new high-order nibble 
of the field is zero. 
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DSRB ~ D Shift Right Bit 
opcode: 81F 
cycles: 20 


Shift register D right one bit. Operates on all 16 digits. The 
bit shifted off the end is lost, but the Sticky Bit (SB) is set if 
it was non-zero. The new high-order bit of the register is zero. 


DSRC - D Snift Right Circular 
opcode: 817 
cycles: 21 


Circular shift register D right one nibble. Operates on all 16 
digits. The Sticky Bit (SB) is set if the nibble shifted from 
low-order around to high-order position was non-zero. 


Goc label - Go relative on carry 


opcode: 4aa (Carry=0) 
cycles: 10 (GO) 
3 (NO) 


Short relative jump to label if Carry is set. label must be in the 
range: 


addr - 128 <= label <= addr + 127 
where addr is the address of the second nibble of the opcode. The 


address offset aa is in two’s complement form and is relative to 
addr. 
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GOLONG label - Go Long 
opcode: S8Caaaa 
cycles: 14 


Long relative jump to label unconditionally. label must be in the 
range: 


addr - 32768 <= label <= addr + 32767 


where addr is the address of the third nibble of the opcode. The 
address offset aaaa is in tuo’s complement form and is relative to 
addr. 


GONC label - Go relative on no carry 


opcode: 5aa (Carry=1) 
cycles: 10 (GO) 
3 (NO) 


Short relative jump to label if Carry is clear. label must be in 
the range: 


addr - 128 <= label <= addr + 127 


where addr is the address of the second nibble of the opcode. The 
address offset aa is in two’s complement form and is relative to 
addr. 


GOSBVL label - Gosub very long to label 


ee co ee ee ee ee ee ee ee ee 


opcode: 8Faaaaa 
cycles: 15 


Absolute subroutine jump to aaaaa, which is the absolute address of 
label. See the GOSUB mnemonic. 
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GOSUB label - Gosub to label 
opcode: TVaaa 
cycles: 12 


Relative subroutine jump to label. label must be in the range: 
addr - 2048 <= label <= addr + 2047 


where addr is the starting address of the next instruction. The 
address offset aaa is in two’s complement form and is relative to 
addr. 


As with all subroutine jumps, the address (addr) of the instruction 
following the gosub opcode is pushed onto the hardware return 
stack, so that when a corresponding return is executed, control 
resumes with the instruction at address addr. 


As the return address is pushed onto the return stack, the 
bottom-most address on the stack is discarded. Therefore, the 
return stack always contains 8 addresses, and if pushes exceed pops 
by 8 levels, the bottom-most return addresses are lost. Since the 
interrupt system requires one level to process interrupts, only 7 
levels of the return stack can be used by code which must execute 
when interrupts are enabled. See the RIN mnemonic for further 
information. 


GOSUBL label - Gosub long to label 
opcode: S8Eaaaa 
cycles: 15 
Long relative subroutine jump to label. label must be in the 


range: 
addr - 32768 <= label <= addr + 32767 
where addr is the starting address of the next instruction. The 


address offset aaaa is in two’s complement form and is relative to 
addr. See the GOSUB mnemonic. 


16-92 





HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


GOTO label - Jump relative 
opcode: 6aaa 
cycles: 11 


Relative jump to label unconditionally. label must be in the 
range: 


addr - 2048 <= label <= addr + 2047 


where addr is the address of the second nibble of the opcode. The 


address offset aaa is in two’s complement form and is relative to 
addr. 


GOVING label - Jump very long 
opcode: S8Daaaaa 
cycles: 14 


Unconditional jump to aaaaa, which is the absolute address of 
label. 


GOYES label - Jump if Test is True 
opcode: yy 
cycles: included in the accompaning 
Test mnemonic cycle time. 


GOYES is a mnemonic to specify part of a CPU test opcode. GOYES 
must always follow a test mnemonic. If the condition of the test 
is met, a jump is performed to label with Carry set. label must be 
in the range 


addr - 128 <= label <= addr + 127 
where addr is the starting address of the jump offset yy. If the 


test condition is not met, Carry is cleared and control passes to 
the next instruction. Compare with RINYES. 
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INTOFF - Interrupt Off 
opcode: 808F 
cycles: 5 


Disable the keyboard interrupt systen. 


INTON - Interrupt On 
opcode: 8080 
cycles: 5 


Enable the keyboard interrupt systen. See the "“HP-71 Hardware 
Specification” for more information. 


LC(m) n..n - Load C with constant (1<=m<=6) 
opcode: 3xn..n (x=m-1) 
cycles: 3+m 


Load m digits of the expression n..n to the C register beginning at 
the P pointer position, and proceeding toward higher-order nibbles, 
with the ability to wrap around the register. See the section on 
“Loading Data From Memory” earlier in this chapter. 


LCASC \A..A\ - Load C with ASCII constant 
opcode: 3mc..c 
(m 2*(# of chars)-1; 
c..c = ASCII codes) 
cycles: 3+2*(# of chars) 


Load up to 8 ASCII characters to the C register beginning at the P 
pointer position, and proceeding toward higher-order nibbles, with 
the ability to wrap around the register. Each A represents an 
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ASCII character. The ASCII characters are stored in the opcode in 
reverse order so that when the instruction is executed the data 
will be loaded into the register with the intended orientation. 
See the section on “Loading Data From Memory" earlier in this 
chapter. 


LCHEX h..h - Load C with hex constant 
opcode: 3nh..h (n=# of digits-1) 
cycles: 4+n 


Load up to 16 hex digits into the C register beginning at the P 
pointer position, and proceeding toward higher-order nibbles, with 
the ability to wrap around the register. The hex digits are stored 
in the opcode in reverse order so that when the instruction is 
executed the data will be loaded into the register with the 
intended orientation. See the section on “Loading Data From 
Memory" earlier in this chapter. 


MP=0 - Clear Module Pulled bit (MP) 
opcode: 828 
cycles: 3 


Clears the Module Pulled bit (MP) and pulls the Module Pulled 
Interrupt line low. See CLRHST mnemonic. 


NOP3 - Three nibble No-op 


opcode: 420 
cycles: 10 (GO/RINYES) 
3 (NO) 


This mnemonic generates a GOC to the next instruction, effectively 
skiping three nibbles. 
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NOP4 - Four nibble No-op 
opcode: 6300 
cycles: 11 


This mnemonic generates a GOTO to the next instruction, efectively 
skiping four nibbles. 


NOP5 - Five nibble No-op 
opcode: 64000 
cycles: 11 


This mnemonic generates a relative GOTO to +4 nibbles. The fifth 
nibble in the opcode ig a place holder and is jumped over. The 
mnemonic effectively skips five nibbles. 


OUT =C - Load 3 nibbles of OR 
opcode: 801 
cycles: 6 


All nibbles of the Output register are loaded with the low-order 
three nibbles of C (X field). 
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OUT=CS 


- Load 1 nibble of OR 


opcode: 
cycles: 


The least significant nibble of the 
the least significant nibble of the 


- Copy P pointer into C 


opcode: 
cycles: 


800 
4 


Output register is loaded with 
C register. 


at Nibbie n 


80 DN 
6 


Copy nibble n of register C into the P pointer. 


. 

P=P+1 - Increment P Pointer 
opcode: 
cycles: 

Increment the P pointer. If P 


automatically wrap around to 0. 


P=P-1 - Decrement P Pointer 
opcode: 
cycles: 

Decrement the P _ pointer. If P 


automatically wraps around to F. 
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P= n - Set P Pointer to n - 


@ 
opcode: 2n 
. cycles: 2 
Set the P pointer to n. se 
RO=A ~ Copy A to register RO 
opcode: 100 ~ : 
cycles: 19 


The contents: “ef the working register A is copied to the scratch 
register RO. e: 


RO=C - Copy C to register RO 


we om a ae am ne ow om 


opcode: 108 
cycles: 19 


The contents of the ore neesever C is copied to the scratch 
register RO. e 


R1=A - Copy A to register R1 


opcode: 101 
cycles: 19 


The contents. of the working register A is copied to. the scratch 
register Rl. 





HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


R1i=C - Copy C to register R1 
opcode: 109 
cycles: 19 


The contents of the working register C is copied to the scratch 
register R1. 


R2=A -~ Copy A to register R2 


opcode: 102 
cycles: 19 


The contents of the working register A is copied to the scratch 
register R2. 


R2=C - Copy C to register R2 


opcode: 10A 
cycles: 19 


The contents of the working register C is copied to the scratch 
register R2. 


R3=A - Copy A to register R3 
opcode: 103 
cycles: 19 


The contents of the working register A is copied to the scratch 
register R3. 
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R3=C - Copy C to register R3 
opcode: 10B 
cycles: 19 


The contents of the working register C is copied to the scratch 
register R3. 


R4=A - Copy A to register R4 
opcode: 104 
cycles: 19 


The contents of the working register A is copied to the scratch 
register R4. 


R4=C - Copy C to register R4 
opcode: 10C 
cycles: 19 


The contents of the working register C is copied to the scratch 
register R4. 


RESET - System reset 


opcode: 80A 
cycles: 6 


The System Reset Bus Command is issued with all chips performing a 


local reset. The reset function will vary according to the chip 
type. See the "HP-71 Hardware Specification" for more information. 
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RSTK=C - Push C to Return Stack 


opcode: 06 
cycles: 8 


Pusn the low-order 5 nibbles (A field) of the C register onto the 


Return Stack. See the GOSUB mnemonic. 


RTI - Return from interrupt 
opcode: OF 
cycles: 9 


Return and re-enable the interrupt system. See the RIN mnemonic. 


RIN - Return 
opcode: 01 
cycles: 9 


Return control to the top address on the hardware return stack. 
The top address on the hardware return stack is popped off and 
placed in the program counter PC. As the address is popped off the 
stack, a zero address is inserted at the bottom of the stack. 


Therefore the the hardware return stack always contains 8 
addresses, and if more pops (returns) than pushes (gosubs) are 
performed, zeros will be read off the stack. Such an attempt to 
“return” to address 0 results in a memory reset, since the memory 
reset code of the operating system resides at address 0. 
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RINC -Return on carry 
opcode: 400 
cycles: 10 (RIN) 
3 (NO) 


Return if Carry is set. See RIN mnemonic. 


RINCC - Return, clear carry 
opcode: 03 
eee cycles: 9 
cierAl 


Return and get Carry. See RIN mnemonic. 


_ RINNC - Return on no carry 


opcode: 500 (Carry=1) 
. cycles: 10 (RIN) 
3 (NO) 


Return if Carry is not set. See RIN mnemonic. 


RINSC - Return, set carry 


opcode: 02 
cycles: 9 


Return and set Carry. See RIN mnemonic. 
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RINSXM - Return, set External Module Missing bit (XM) 
opcode: 00 
cycles: 9 
Return and set the External Module Missing bit (XM). Since the 


opcode is zero, this mnemonic is executed on a jump to a 
non-existent memory device, See the “HP-71 Hardware Specification" 
for more information. See also the RIN mnemonic. 


RINYES - Return if Test is True 
opcode: 00 
cycles: included in the accompaning 
mnemonic cycle time. 


If the test condition is not met, Carry is cleared and control 
passes to the next instruction. Compare with RINYES. RINYES is a 
mnemonic to specify part of a CPU test opcode. RINYES must always 
follow a test mnemonic. If the test condition is met, Carry is set 
and areturn is executed. If the test condition is not net, 
control passes to the instruction following the RINYES. Compare 
with the RIN and GOYES mnemonics. 


SB=0 - Clear Sticky Bit (SB) 
opcode: 822 
cycles: 3 


Clear the Sticky Bit (SB). See CLRHST mnemonic. 
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SETDEC - Set decimal 


ee a oe ae om oe ee 


opcode: 05 
cycles: 3 


Set CPU arithmetic mode to decimal. 


SETHEX - Set hexadecimal mode 


opcode: 04 
cycles: 3 


Set CPU arithmetic mode to hexadecimal. 


SHUTDN ~ System Shutdown 


opcode: 807 
cycles: 5 


When this mnemonic is executed the CPU sends out the Shutdown Bus 


Command and stops its. clock. See the "HP-71 Hardware 
Specification" for more information. 


' SR=0 - Clear Service Request bit (SR) 
opcode: 824 
. cycles: 3 
Clear the Service Request bit (SR). See the CLRHST mnemonic. 
16-104 | 


HP-71 Software IDS - Detailed Design Description 
HP-71 Assembler Instruction Set 


SREQ? - Service Request 
opcode: 80E 
cycles: ¢ 


This mnemonic sets the Service Request bit (SR) if any chip on the 
system bus requests service. When it is executed, a Service 
Request Bus Command is issued on the system bus to poll all chips 
for a Service Request. If any chip requests service, a bus line 
will be pulled high during the next strobe following the Service 
Request Bus Command. This value of the bus will be latched into 
the least significant nibble of the C register. The bus line 


pulled high determines the device type according to the following 
table. 


Bit Device 

3 Unused 

2 Card Reader 

1 HP-IL Mailbox 

0 Display Driver (timer) 


If any bus line is high, the Service Request bit (SR) will be set. 
See the "HP-71 Hardware Specification" for more information. See 
also the ?SREQ and SR=0 mnemonics. 


StT-0 on - Clear Pregram Status bit n 
opcode: 84n 
cycles: 4 


Clear the Program Status bit selected by n. 


ST=1 n - Set Program Status bit n 


opcode: 85n 
cycles: 4 


Set the Program Status bit selected by n. 
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ST2C - C to Status 6 
opcode: 0A 
cycles: 6 


Copy the low-order 12 bits of the Status register (X field) into 
the low-order 12 bits of the C register. 


UNCNFG - Unconfigure 
opcode: 804 
cycles: 12 


Load the low-order 5 nibbles (A field) of the C register into each 
Data pointer with the device addressed by the Data pointer 
unconfiguring. See the “HP-71 Hardware Specification" for more 
information. 


XM=0 - Clear External Module Missing bit (XM) 
opcode: 821 
cycles: 3 


Clear the External Module Missing bit (XM). This hardware status 
bit is set by the RINSXM mnemonic. See the CLRHST mnemonic. 
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Machine Code Packing Techniques 


Take full advantage of existing subroutines, 
or create beneficial new ones (even short ones). 


Use A field instead of B field when possible and 
when speed doesn’t matter. 


Remove unnecessary P=0 instructions. (Most routines 
exit with pointer set to 0.) 


If two subroutines have common ending, then end 
one of them with a GOTO to the common ending. 


If common code precedes subroutine calls, move 
that common code to the front end of the subroutine. 


A RIN should generally not follow a GOSUB instruction. 
Shorten error messages or delete redundant ones. 
Remove unnecessary long branches within modules. 


Code for optimum space, not speed, if speed loss 
is not significant. 


Centralize the loading of C with the same Error 
Number. 


Setting a data pointer to the same 5 nibble value 
can be shortened using a GOSUB to set it. 


Using an LC(5) to load a 1 or 2 nibble constant into 
C(A) cah be shortened with: 

C=0 A 

LC(2) =symBol 


Using load listing, search for routines that are 
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never referenced, or only referenced once. 


13. Using load listing as an aid, search for common 
sequences of subroutine calls. 


14. If the state of the carry is predictably the same for 
all paths through a section of code, any GOTO instruction 
to a nearby label can be replaced by a GOC or GONC 
instruction depending on whether the carry is known to 
be set or Clear, respectively. This type of branch saves 
1 nibble, and is referred to as a "Branch Every Time," 
often abbreviated as "BEI" or "B.E.T." in the comment field 
of the instruction. Such branches should be used with 
caution and should be clearly commented. 


17.2 Mainframe File Type Table 


The mainframe file type table is as follows. For an explanation of 
the format of this table, see the "Table Formats” chapter. 


= FTYPE 
*** DATA FILE (Interchange DATA File) 

NIBHEX 110 

CON(2) =oDAsod 

NIBASC \DATA \ 

CON(1) 2 

CON(4) =fDATA 

CON(4) (=fDATA)+1 Secure DATA file 
wt BASIC FILE 

NIBHEX 001 

CON(2) =oBSsod 

NIBASC \BASIC\ 

CON(1) 4 ~ 

CON(4) =fBASIC 

CON(4) (=fBASIC)+1 Secure BASIC 

CON(4) (=fBASIC)+2 Private BASIC 

CON(4) (=fBASIC)+3 Secure, private BASIC 
wet KEY FILE 

NIBHEX 000 

CON(2) =oKYsod 

NIBASC \KEY \ 

CON(1) 2 

CON(4) =fKEY 

CON(4) (=fKEY)+1 Secure KEYS 
*** TEXT FILE 

NIBHEX 440 

CON(2) =oTXsod 

NIBASC \TEXT \ 
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CON(1) 2 
CON(4) 1 
CON(4) #E0D1 Secure TEXT 
¥** LIF1 FILE (same as TEXT) 
NIBHEX 440 
CON(2) =oTXsod 
NIBASC \LIF1 \ 
CON(1) 1 
CON(4) 1 
*#** SDATA FILE (Series 40 Data File) 
NIBHEX 220 
CON(2) =041s0d 
NIBASC \SDATA\ 
CON(1) 1 
CON(4) #E0DO 
*** BIN FILE (Binary File) 
NIBHEX 001 
CON(2) =oBNsod 
NIBASC \BIN \ 
CON(1) 4 
CON(4) =fBIN 
CON(4) (=fBIN)+1 Secure BIN 
CON(4) (=fBIN)+2 Private BIN 


CON(4) (=fBIN)+3 Secure, private BIN 
##* LEX FILE (Langauge Extension File) 
NIBHEX 001 


CON(2) =oLXsod 
NIBASC \LEX \ 


CON(1) 4 

CON(4) =fLEX 

CON(4) (=fLEX)+1 secure LEX 

CON(4) (=fLEX)+2 Private LEX 

CON(4) (=fLEX)+3 Secure, private LEX 
a 
* 

NIBHEX FF Terminates Table 
* 

END 


17.3. LEX File Implementing Statements and Functions 


This LEX file is taken from the HP-71 Editor ROM. It implements 
the statements INSERT#, REPLACE#, and DELETE# for TEXT files, and 
extends the LIST and PLIST statements to include TEXT files. in 
addition, a number of functions are also implemented to examine and 
search TEXT files, to detect the pressing of scroll keys, and to 
aid the parsing of Editor commands. Note that there are two sets 
of LEX tables chained within this LEX file. 
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REL 


® 
TITLE Titan EDITOR Lexfile <840123.1614> 
#8 
I & EEEEE DDDD TITIT 
& & E D OD - 
& & E D OD T 
& EEEE D D T 
&&&R CE , DD z 
& & E D D T 
I && & EEEEE DDDD r 


* eK KK KK K K 


mE 


Text Editor, 


xe Ke kK * 


* 


RDSYMB 
RDSYMB 
NIBASC 
CON (4) 
NIBHEX 
NIBHEX 
NIBHEX 
REL(5) 


NI BHEX 
CON (2) 
CON (2) 
REL(5) 


NI BHEX 
CON (4) 
REL (4) 
REL(5) 
STITLE 
* Main Table 
=xromFO 
¥ 


CON (3) 
REL(5) 
NIBHEX 


CON (3) 
REL(5) 
NIBHEX 


CON (3) 
REL(5) 


with Formatter. 


Set assembler flagl = 1 to assemble the short 
Text Editor, without Formatter. 


SBZRAM 
TIZEQU . 
\EDLEX \ File Name 
=fLEX File Type 
00 Flags 
1441 Time 
‘412138 Date 
FILEND File Length 
OF Id 

1 Lovest Token 

7 Highest Token 
SCRLEX End of lex table chain 
F Speed table omitted 
(IxTbSt)+1-(*) Offset to text table 

MSGIBL Offset to message table 
POLHND Offset to poll handler 

Main Tabdle 

0 01 DELETE# 
DELETE 
D 

34 02 EDTEXT 
EDTEXT 
D i 

49 03 FILESZR 
FILSZR 
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NIBHEX F 


CON (3) 66 04 INSERT# 
REL(5) INSERT 
NIBHEX D 


CON (3) 81 05 REPLACE# 
REL(5} REPLCE 
NIBHEX D 


CON (3) 98 06 SEARCH 
REL(5) SEARCH 
NIBHEX F 


CON(3) 15 07 EDPARSE$ 
REL(5) EDPARS 
NIBHEX F 
STITLE Te x t Table 
* Text Table 
TKTbSt Text table start 
¥ 


NIBHEX B DELETE# 
NIBASC \DELETE\ 
NIBHEX 10 


NIBHEX F EDPARSE$ 
NIBASC \EDPARSE$\ 
NIBHEX 70 


NIBHEX B EDTEXT 
NIBASC \EDTEXT\ 
NIBHEX 20 


NIBHEX D FILESZR 
NIBASC \FILESZR\ 
NIBHEX 30 


NIBHEX B INSERT# 
NIBASC \INSERT\ 
NIBHEX 40 


NIBHEX D REPLACE# 
NIBASC \REPLACE\ 
NIBHEX 50 


NIBHEX B SEARCH 
NIBASC \SEARCH\ 
NIBHEX 60 
4 reTbEn NIBHEX iFF Text termination 


STITLE Editor messages 
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r | 
MSGIBL | 
frmt- IF 1 Short msg table w/o formatter | 

* -----------~--- merge MB&EDS here ---------------- | 

PEUUU CEP UL EOP PEEP P eee Peay eet erga darter sian gt | 

*liiiliti! Message number 5 is placed first because of the [| 

Flittlith! requirement to have a 0 nibble following the hi | 

*LllIttlt! range field. If message number 5 changes, 7 

Flrirliit! you must select another message to put in the i! 

Fliiiliiy: first slot! (any message with a length which i 

Friitiits! ig a multiple of 16) it 

CON (2) 1 Min message # 

CON(2}) 11 Max message # | 
* 
=eLINE EQU 5 Line 

CON(2) 16 

CON (2) 5 Message number 5 

CON(1) 4 

NIBASC \Line \ 

CON(1) 12 

SES CSS CESS ESSE SSS eS SEC ESEE SCORSESE CSSECSEOEEESEESEEEEEEEE 

* 

=eEOF EQU 1 Eof 

CON(2) 12 
CON(2) 1 Message number 1 
CON (1) 2 
NIBASC \Eof\ 
CON(1) 12 
* 
=ecmds EQU 2 CDEFHI LMPRST 
CON(2) 31 
CON(2) 2 Message number 2 
CON(1} 11 
CON(1) 11 
NIBASC \CDEFHILM\ 
NIBASC \PRST\ 
CON(1) 12 
* 
=eUNKNU EQU 3 ? Cmd: 
CON(2) 13 
CON(2) 3 Message mumber 3 
CON(1) 1 : 
NIBASC \? \ 
CON(1) 13 
CON(2) =eCMD 
CON(1) 12 
* 
=eFLNM EQU 4 Filename: 


CON(2) 19 





HP-71 Software IDS - Detailed Design Description 


HP-71 Code Examples 


* 


* Message number 5 is found at the top of the table. 
% 


* 
=eCMD 


=eOKDLT 


=eYNQ 


=eINVCM 


=eWRKG 


CON (2) 
CON (1) 
CON (2) 
CON (1) 


4 
14 

=eFILE 
4 


NIBASC \name: \, 


CON (1) 


12 


EQU 6 
CON(2) 14 
CON(2) 6 
CON(1) 3 
NIBASC \Cmd:\ 
CON(1) 12 
EQU 7 
CON(2) 43 
CON(2) 7 
CON(1) 10 


NIBASC \OK to De\ 


NIBASC \let\ 


CON({1) 6 
NIBASC \e? Y/N:\ 
CON(1) 12 

EQU 8 
CON(2) 12 
CON(2) 8 
CON(1) 2 
NIBASC \YNQ\ 
CON(1) 12 

EQU 9 
CON(2) 25 
CON(2) 9 
CON(1) 14 
CON(2) =eINVLD 
CON(1) 7 
NIBASC \Cnd Strg\ 
CON(1) 12 

EQU 10 
CON(2) 26 
CON(2) 10 
CON(1) 9 
NIBASC \Working. \ 
NIBASC \..\ 
CON(1) 12 


Message number 


Cnd: 


Message number 





4 


6 


OK to Delete? Y/N: 


Message number 


YNQ 


Message number 


Invalid Cmd Strg 


Message number 


Working... 


Message number 


7 


8 


9 


10 


re 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


=eDONE EQU 11 Done 

CON(2) 14 

CON(2) 11 Message number 11 

CON (1) 3 

NIBASC \Done\ 

CON(1) 12 
* 

* 

NIBHEX FF Table terminator 
frmt- ELSE Short msg table w/o formatter 

Fo --------~--- merge MB&EDM here ------------- 

MUP PPC PPP eee eee Cee gy eee rg gee adap e reer barca aeer eee iaeens 
*Witiitttt! Message number 5 is placed first because of the !! 
Witiiiril! requirement to have a 0 nibble following the ti 
Rliiiriit! range field. If message number 5 changes, ti 
*ryiitilll you must select another message to put in the tt 
Fisittr@t! first slot! (any message with a length which ii 
Wriititlst! ig a multiple of 16) Vt 

CON(2) 1 Min message # 

CON(2) 53 Max message # 
=eLINE EQU 5 Line 

CON(2) 16 

CON(2) 5 Message number 5 

CON({1) 4 

NIBASC \Line \ 

CON(1) 12 
CCC eC a eee pia dai 
* 
=eEOF EQU 1 Eof 

CON(2) 12 

CON (2) 1 Message number i 

CON (1) 2 

NIBASC \Eof\ 

CON({1) 12 
* 
=ecmds EQU 2 CDEFHI LMPRST 

CON(2) 31 

CON (2) 2 Message number 2 

CON(1) 11 

CON(1) 11 


NIBASC \CDEFHILM\ 
NIBASC \PRST\ 


CON(1) 12 
% 
=eUNKNW EQU 3 ? Cnd: 
CON(2) 13 
CON(2) 3 Message number 3 


CON (1) 1 
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=eFLNM 


* 


* Message number 5 is found at the top of the table. 
% 


* 
=eCMD 


# 
=eOKDLT 


=eYNQ 


=eTNVCM 


¥ 
=eWRKG 


NIBASC 
CON (1) 
CON (2) 
CON (1} 


EQU 


CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 


NIBASC 
CON (1) 


EQU 


Vee X 
13 
=eCMD 
12 


4 
19 
4 
14 

=eFILE 
4 


\name: \ 
le 


le 


43 
7 
10 


\OK to De\ 


\let\ 
6 


\e? Y/N:\ 


Le 


8 

12 

8 

2 
\YNQ\ 

12 


9 
25 
9g 
14 
=eINVLD 
7 


\Cmd Strg\ 
12 


10 


Filename: 


Message mumber 4 


Cmd: 


Message number 6 


OK to Delete? Y/N: 


Message number 7 


YNQ 


Message number 8 


Invalid Cmd Strg 


Message number 9 


Working... 
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=eDONE 


=efrmt 


=eoMFL 


=eMULT 


* 
=ePLSIN 


CON({2) 26 

CON(2) 10 

CON (1) 9 

NIBASC \Working.\ 
NIBASC \..\ 
CON(1) 12 

EQU 11 

CON({2) 14 

CON(2) 11 

CON(1}) 3 

NIBASC \Done\ 
CON(1) 12 

EQU 12 

CON(2) 68 

CON(2) 12 

CON(1) 10 

NIBASC \ESPNPASP\ 
NIBASC \ADF\ 
CON(1) 10 

NIBASC \ICOCEJUM\ 
NIBASC \ASK\ 
CON(1) 7 
NIBASC \TADLPLME\ 
CON(1) 12 

EQU 13 

CON(2) 32 

CON(2) .13 

CON(1) 9 
NIBASC \Merge > \ 
NIBASC \5 \ 
CON(1) 14 

CON(2) =eFILE 
CON(1) 0 

NIBASC \s\ 

CON(1) 12 

EQU 14 

CON(2) 41 

CON(2) 14 

CON(1) 10 
NIBASC \Mult Dis\ 
NIBASC \tr \ 
CON(1) 5 
NIBASC \Lists:\ 
CON(1) 12 

EQU 15 

CON(2) 35 


Message mumber 10 


Done 


Message number i11 


Message number 12 


Merge > 5 Files 


Message number 13 


Multiple Distribution Lists 


Message number 14 


Insert Page... 
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CON(2) 15 Message number 15 
CON(1}) 11 
CON(1) 13 


NIBASC \Insert P\ 
NIBASC \age...\ 
CON(1) 12 


Copy: {[ble]] C [<file>] 


| 
| 
=eCOPY EQU 16 
| 
| 


CON(2) 17 
CON(2) 16 Message number 16 
CON(1) 13 
CON(2) =ebes 
CON (1) 0 
NIBASC \C\ 
CON(1) 13 
CON(2) =e<file 
CON(1) 0 
NIBASC \]\ 
CON(1) 12 
* Delete: [bfe]l] D [<file>[+}] 
* 
=eDELT EQU 17 
CON(2) 23 
CON(2) 17 Message number 17 
CON(1) 13 
CON(2) =ebes 
CON (1) 0 
NIBASC \D\ 
CON(1) 13 
CON (2) oe 
CON (1) 
NIBASC \“ oo 
CON (1) 
* Exit: E 
* 
=eEXIT EQU 18 
CON (2) 8 
CON (2) - Message number 18 
CON (1) 
NIBASC \E\ 
CON(1) 12 
% Format: F [n] {G$] 
* 
=eFORMT EQU 19 
CON(2) 24 
CON(2) 19 Message number 19 


CON(1) 8 
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=eHELP 


NIBASC \F [n] [G$\ 


NIBASC 
CON (1) 


EQU 
CON (2) 


* CON{(2). 


no *« * 


zeLIST 


a 


ePRINT 


eINSRT 


CON (1) 
NIBASC 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


CON (2) 


CON (1) 


EQU 


"CON (2) 


CON (2) 
CON (1) 
CON (2) 


CON (1). 


NIBASC 
CON (1) 
CON (2) 
CON (1) 


NIBASC 


CON (1) 


EQU. 

CON (2) 
CON (2) 
CON (1) 


\J\ 
12 


20 
8 
20 
0 
\H\ 
12 


21 
16 
21 
4 
\{1] IN 
12 


22 
14 
22 
13 
=ebes 


0 
\L\ 
13 
2 enN 
12 


23 
19 
23 
13 
=ebes 
0 


AM 


13 
zse<file 


0 
AN\ 


12 


24 
14 
24 
13 


Help: H 


Message number 20 


Insert: [1] I 


Message number 21 


List: [b{e]] L [n) (N] 


Message number 22 


Move: [{b[e]] M [<file>] 


Message number 23 


Print: (b{e]] P [n] [N] 


Message number 24 


17-12 


HP-71 Software IDS - Detailed 
HP-71 Code Examples 


* 
* 


=e@REPLC 


nH «Ke O* 


eSEARC 


=eTEXT 


* 


CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON(1} 
CON (2) 
CON (1) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


z=ebes 
0 
\P\ 
13 


=enN 
12 


\R/stri/s\ 
\tr2[/]\ 


le 





Design Description 


Replace: 


Message number 25 


Search: 


Message number 26 


Text: [1] T 


Message number 27 


FOIE SESE SESE SEE FEE IE 


* Building blocks 
*% 


% 
=ebes 


¥ 
¥ 


EQU 

CON (2) 
CON (2) 
CON (1) 


NIBASC \[ble]] \ 


CON (1) 


e<file EQU 


CON (2) 


50 
20 
50 

6 


12 


51 
22 


“ad: advance page 
FRHHHBEHHHHHHHFE 


[oe] ] 
Message number 50 


[<file> 


17-13 


[b[e]][?] R/stri/stre[/] 


(b{e]](2] S/str{[/] 
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CON(2) 51 Message number 51 
CON(1) 7 
NIBASC \ [<file>\ 
CON(1) 12 — 
(o{e}} [2] 


nw Ke * 


| 
| 
| 
| 
ebe?  EQU 52 
CON(2) 26 | 
CON(2) 52 Message number 52 
CON(1) 9 
NIBASC \[b{e]] [2\ 
NIBASC \] \ | 
CON(1) 12 
* [n] [N]} 
=enN EQU 53 
CON(2) 20 
CON (2) _ Message number 53 
CON (1) 
NIBASC \. tal ONT\ 
CON({1) 12 


NIBHEX FF Table terminator 
frmt- ENDIF Short msg table w/o formatter. 


* Poll handler goes here. Handler for VER$ poll is 
* provided 
* 


POLHND ?B=0 8B VER$ poll? 

GOYES hVER$O Yes. 

GONC hVER$2 No. To nVER$2 w/carry clear. 
nVER$O C=R3 

D1=C 

A=R2 

Di=D1- (VER$en)-(VER$st)-2 

CD1IEX 

?A0C OA 

GOYES hVER$1 

D1=C 

R3=C 


* 


**1! LCASC text to be returned for VER$ here 
* Include a leading blank!! 
* 


VER$st LCASC \ EDT:A\ 

VER$en DAT1=C (VER$en)-(VER$st)-2 
NVER$1 RINSXM 

* 


*#i! Contimue poll handler here: Carry is clear, VER$ poll 
* has been handled. 
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x 
HVER$2 LC(2) =pLIST2 


| 

| 

| 

2B=C OB 

GOYES LISTOO 

RINSXM 
| 
| 
| 


LISTOO LC(5) =fTEXT 
PA=C UA 
GOYES list01 
RINSXM 
,bist0l GOTO LISTO1 


**!! LEXFILE code goes here 
* 


STITLE EDTEXT Keyword Execute 
FIFI HEHEHE HIS HIEFIBIEE HFIP BEI HE HEHEHE EHIHHEHHHHENIHHE 


FHI ERI HHH HHH HEHE HEHEHE 


Name: EDTEXIT - EDTEXT Keyword Execute 
Category: STEXEC 


Purpose: 
Executes EDITEXT keyword 


Entry: 
P = 0 
DO past tEDTEXT (at tLITRL) 
P = Q 


Calls: See CALL statement execute 


See CALL statement execute 


Stk lvls: See CALL 


History: 
Date Programmer Modification 
09/28/83 S§.W. Added documentation 


LEER EL EEE EEE EEE EEE EE EE EEE TS 


FERRER IEEE STII SSH AES SAIL SESS SNS SE SESS SELASSIE 
FEI IRIE HHI EE EHH HII HHI EEE HEHE HHA HAGE 
¥ 


REL(5) EDTXTd Offset to EDTEXT decompile 
REL(5) EDTXTp Offset to EDTEXT parse 
EDTEXT GOVLNG =CALL 
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* 


STITLE FILESZR Function Execute 


Name: = FILSZR -  FILSZR Function Execute 
Category: FNEXEC 


Purpose: — | 
FILSZR locates the specified TEXT file in and returns 
the number of records in the file. The syntax is: 


FILSZR ( <file specifier string> ) 
The returned value is: 


If >= 0 Number of records in TEXT file 
If < 0 Negative of the error mumber. Possible 

errors are: _ 
Invalid File Spec 
File Not Found 
Invalid File Type 
File Protect 
Illegal Access 


Entry: 
String specifying file is on stack 
P = 0 are: 


Exit: 

P - 0 
Calls: FILXQ$, FINDF+ , POSTXT ,HDFLT, DIMSTK, PSHSTK, FNRIN1 
Uses....... 


Exclusive: A,B(A),B(S),C,D,R0,R1,D0,D1,SPRBLM,SEOF, sBADRC 
Inclusive: A-D,RO-R3,D0,D1,S11-S0, SIMTR1,SIMID1, Function 
Scratch 


Stk lvls: 6 (FILXQS$ ) 


History: 
Date Programmer Modification 
09/29/83 FH Designed and coded 


STEERS ELT E SESE PEST SSeS ete Sei PEE ES St ett t tts 


SPRBLM EQU 4 
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FILSZR 


FiILSer 


FILS10 


FILS20 


FILS30 


expr 


NI BHEX 
CDOEX 
RSTK=C 
GOSBVL 
GOSUB 
GOSBVL 
GOC 
GOSUB 
GOSBVL 
CD1EX 
C=C+A 
D1=C 
GOSUB 
LC (4) 
ST=1 
CSL 
CSR 
A=C 
GOTO 
GOSUB 
GOSBVL 
GOC 
A=0 
A=A-1 
R1=A 
AD1EX 
GOSUB 
ST=0 
2C#0 
GOYES 
A=RO0 
A=A+1 
GOSUB 
GOSBVL 
?ST=0 
GOYES 
A=-A-1 
SETHEX 
D1=D1- 
DAT1=A 
GOSBVL 
C=RSTK 
CDOEX 
GOVLNG 


STITLE 
REL(5) 
REL(5) 


DELETE ST=0 


411 


=R<RSTK 
ave=dl 
=FILXQ$ 
FILS10 
dimstk 
=POP1S 


A 


ave=d1 
=eFSPEC 
SPRBLM 
A 

A 

A 
FILS20 
ave=dl 
=FINDF+ 
FI LSer 
A 

A 


POSTXT 
SPRBLM 
A 

FI LSer 


A 
dimstk 
=HDFLT 
SPRBLM 
FILS30 
S 


16 


W 
=RSTK<R 


=EXPR 


Parameter descriptor: One string 
Save DO in RSTKBF 


Save string start in AVMEME 
Pop file name into A 

Branch if valid file name 
Restore poor old Dl 

Move Dl past string header 
Move Dl past string contents 


Save D1 in AVMEME 

Load error code 

Set error flag 

Isolate error code inA 


Go return negative error code 
Save D1 in AVMEME (string popped) 
Find file 
Error if not found 
Search for unreachable record 

. which is -1 


A = File header addr 
Position file, always error return 


Real error, not just EOF? 
Compute # records in file 
Restore Dl 

Convert to decimal 

No error? 

Make number negative 
Return to hex mode 


Write mumber to stack 


Restore DO 


Return 


DELETE# Keyword Execute 


DELETd 
DELETp 
sINS 


Off set to DELETE# decompile 
Off set to DELETE# parse 
Set up DELETE# status 


Liaif 


2 
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INSERT 


REPEL EL EEE EEE EEE EEE EEE EEEEEE EEE EEE EES 


ST=1  sDEL 
GOTO  REPL10 


STITLE INSERT# Keyword Execute 


REL(5) INSRTd Offset to INSERT# decompile 
REL(5) INSRIp Offset to INSERT# parse 
ST=1 ~~ sINS Set up INSERT# status 

ST=0 sDEL 

GOTO REPL10 


STITLE REPLACE# Keyword Execute 
* 


Name: REPLCE - REPLACE# Statement Execute 


Category: STEXEC 


Purpose: 
Execute REPLACE# statement for the HP-71 EDITOR ROM. 
Entry: 
P = 0 
DO @ After starting token 
Exit: 
P = 0 
To NXISIM 
Calls: OBCOLL, STATSV , GETCH# , MGOSUB,, EXPEX- , DIMSTK, POP1R, 
FLIDH , SIATRS, REVPOP , SUPBYT , MOVEUO , POSFIL, BSERR, 
?PRFI+, RPLLIN, FIBADR,NXTSIM 
Uses....... 


Exclusive: A-D,R1,83,sINS, sDEL,STMIR1, STMID1, CHN#SV 
Inclusive: A-D,RO-R4,S11-S0,Statement and Function scratch, 


CHN#SV 


Stk lvls: 6 (GEICH#) 


Detail: 

Status usage: sINS sDEL 
REPLACE# 0 0 
INSERT# 1 0 
DELETE# 1 1 


Statement Scratch usage: 


STMTRO (15-14) Channel number 
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EERE EEE EP RES ELE EEE REE EE EEE EEE ET 


09/12/83 F. Hall 


STMTRO (9-5) Record number 


Algorithm: 


Set up respective status bits (see detail above) 
Collapse output buffer 
Evaluate channel number, exit if error 
Skip comma token 
Evalute record number, exit if error 
Save record number in STMIRO 
If not DELETE#, then 
Skip ";" token 
Evaluate string expression 
Move string from MIHSTK to Output Buffer 
If file ig not in RAM, or is secure or private then error 
If file is not TEXT copy code, then error 
Space file out to <record mumber> giving START of line 
If INSERT# then 
Set LENGTH to 0 
Else 
Compute line length giving LENGTH 
Call RPLLIN to edit file 
Update FIB end-of-data field 
Collapse output buffer 


Go to NXTSIM 
History: 
Date Programmer Modification 


— - — ee ee we ee ee we ee ee ee ee ee ee ee ee we we me 0 we ee ee a ee we we ew es we we 


* Status Symbols 


* 


SINS 
sDEL 
SBADRC 
*sg1/OBF 
¥ 
ave-dl 
dimstk 
supbyt 
_ eoeue 


invarg 


EQU 11 
EQU 9 
EQU 8 
EQU 10 External symbol 


GOVLNG =AVE=D1i 
GOVLNG =D1MSTK 
GOVLNG =SWPBYT 
GOVLNG =MGOSUB 


LC(4)  =eIVARG 
GOTO bserr 
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REPLCE 


a 


‘eee 


REPL10 


*e ei" 


REL (5) 
REL(5) 
ST=0 
ST=0 


REPLCd 
REPLCp 
sINS: 
sDEL 


Offset to REPLACE# decompile 
Offset to REPLACE# parse 


Set up REPLACE# status 


Collapse output buffer 
Evaluate channel: nurber, exit if error 


Skip comma token 


Evalute record number, exit if error 


GOSBVL 
D1=(5) 
GOSBVL 
GOSUB 
CON (5) 
DO=D0+ 
GOSUB 
CON (5) 
GOSUB 
GOSUB 
GOSUB 
GONC 


If not 


=OBCOLL 
=$-RO-1 
=STATSV 
mgosub 
=GETCH# 
2 
mgosub 
=EXPEX- 
dimstk 
popir 
fitdh 
invarg 


DELETE#, then 
Skip ";" token 


Collapse output buffer 


- Save status in S-RO0-1 


Get channel #, save in CHN#SV 


Skip comma 
‘Get record number 


(D1 not valid after MGOSUB here) 


a 


Branch if out of range 


Evaluate string expression 
string from MIHSIK to Output Buffer 


Move 


D1=(5) 
GOSBVL 
?ST=1 
GOYES 
D1=D1- 
DAT1=A 
DO=D0+ 
GOSUB 
CON (5) 
GOSUB 
GOSBVL 
B=0 
B=A 
BSRB 
CD1EX 
D1=(5) 
A=A+C 
DAT1=A 
DO=C 
DO=D0- 
A=B 
GOSUB 


=S-RO-1 
=STATRS 
sDEL 
REPL20 


Restore status momentarily 
DELETE# ? 
Store record # in S-R0-0 


Skip over ; 
Evaluate string expression 


_ D1 @ Av mem end 


‘Pop record string (must be reversed) 
B = # bytes of data 


C= stg start 
Move AVMEME beyond end of string 


DO @ Line header = SOURCE START 


Urite line header 
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$$ 


DATO=A 4 | 
B=B+1 A Round up to even bytes for LIF std 
BSRB | 
B=B+1 A Add 2 bytes for line header 
B=B+B A Convert to nibs 
B=B+B A . (B = BLOCK LENGTH) 
D1=D1- (AVMEME)-(AVMEMS) Update AVMEMS to new end 
A=DAT1 A : 
A=A+B A 
DAT1=A A . 
A=A-B A Di = DEST START 
D1i=A 3 
GOSBVL =MOVEUO Move string down to output buffer 
Di=(5) =S-RO-0 Recall record number 
A=DAT1 A . 
Dl=Di+ 5 Restore status 
GOSBVL =STATRS 
* 
we Space file out to <record mumber> giving START of line 
ae If file is not in RAM, or is secure or private then error 
is If file is not TEXT copy code, then error 
% 
REPL20 R1=A Store record number 
D1=(5) =CHN#SV Recall channel # 
A=DAT1 B , 
GOSUB POSFIL Position file to requested record 
GONC REPL30 Branch if no error 
2C#0 OA Problem not simply EOF? 
GOYES bserr 2 
REPL25 LC(4) =eEOFIL Error out "End of File" 
GONC bserr (BET) 
REPL30 A=B S Check if file secure 
GOSBVL =?PRFI+ 
GOC bserr : 
D=D-1 S$ File in MAIN? 
GOC REPL40 
D=D-1 5S File in IRAM? 
GOC REPL40 
LC(4) =eFACCS “Invalid Access” 
bserr GOVLNG =BSERR 
REPL40 ?ST=1 sBADRC Refuse to edit bad record 
GOYES REPL25 
% 
¥* If INSERT# then 
ished Set LENGIH to 0 
m= Else 
at Compute line length giving LENGTH 
# Call RPLLIN to edit file 
¥* Update FIB end-of-data field 
a Collapse output buffer 
ee Go to NXTSIM 
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REPL50 


REPL60 


LIST 


CD1EX 
RSTK=C 
ADOEX 
?ST=0 
GOYES 
A=C 
C=A-C 
R3=C 
D1=(5) 
C=DAT1 
D1=C 
D1=D1+ 
C=DAT1 
GOSUB 
CON (5) 
GONC 
B=C 
C=RSTK 
C=B 
GOTO 
D1=(5) 
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sINS 
REPL50 
A 

A 


=SIMID1 
A 


OFBEGb 
A 
mgosub 
=RPLLIN 
REPL60 
A 


A 
bserr 
=CHN#SV 


A=DAT1 A 


GOSBVL 
D1=D1+ 
D1=Di+ 
A=DAT1 
C=RSTK 
C=C-A 
D1=D1+ 
D1i=D1+ 
DAT1=C 
D1=D1+ 
C=DAT1 
A=R3 
A=A+C 
DAT1=A 
GOSBVL 
GOLONG 
STITLE 


FOIE 
FRHHIHIHIHIHHIHHHHH EHH EEE EISELE EEE HE SERIE EN EHH HE 


ELE EEE: 





Name: 


Category: 


Purpose: 


=FIBADR 
16 


C,RSTK = Start of line 


A = Start of NEXT line 
Not INSERT# ? 


Preset LENGIH = 0 
R3 = LENGIH of previous line 


Set C = File header address 


Replace line 


Branch if no error 
Pop stack, protecting error code 


Update FIB’s current position 


(oDBEGb) - 16 


A 


A 
16 


. recall abs address of line start 
. Rake relative to data start 


(OCPOSb)-(ODBEGb)-16 . 


A ; 
(ODLENdD)- (oCPOSb) Update data length 


A 


A 

A 
=OBCOLL 
nxtstm 


LIST Statement Execute 
; % 


LISTIX 


STEXEC 


. C = data length 
. A = offset 


Collapse output buffer 
Exit to next statement 


FHHIRIIHHIBHHHHHHHE 


- LIST of TEXT files 


Handles POLL to LIST a TEXT file 


Entry: 


HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


P = QO 

B(B) contains poll# 

A(A) contains file type# 
Dl points to file header 
DO past file specifier 


Exit: 

P = 0 
Calls: DECHEX, FRCRDn, RCDSKP, FILSKP, PRPSND, POPUPD 
Uses....... 


Exclusive: A-D, D1,D0, RO-R3, S-R1-1, OUTBS 


Stk lvls: 6 
History: 
Date Programmer Modification 
09/14/83 S.U. Wrote routine tS” 


REEL EEE LER EE EEE ESLER ES 


FRIIS HII HITE HEHE FEI BE HEHEEEEHEEIHE HHH 
FHI HOHE EIA HELENE SEEMS SESE HEISE FEEL HME SSE IEEE AEE 
% 


LISTO1 C=0 U 
A=0 W 
C=C+1 A 
R1=C : 
LCHEX 1048575 Biggest# = 5 hex digits 
R3=C 
A=DATO B 
LC(2) =tCOMMA 
7AKHC OB 
GOYES LISTO7 No parms specified? 
DO=D0+ 1 
A=DATO A 
ASR A 
DO=D0+ 5 
R1=A Write over default parm 
A=DATO B 
LC(2) =tCOMMA 
PARC B 
GOYES LISTO6 No 2nd parm specified? 


LISTO5 DO=D0+ 
A=DATO 
R3=A 
C=R1 
2C<=A A parmi<=parm2 ? 
GOYES LISTO7 


- 
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LC(4) =eIVARG 
RINSC 
% 
LISTO6 A=Ri 
R3=A 
* BCD line#s in R1 & R3 
* Dl positioned to start of file’ 
* Convert R1 & R3 to HEX 
LISTO7 A=R1 
GOSBVL =DECHEX A{A) contains HEX 
R1=A I ol lai cF. 
A=R3 
GOSBVL =DECHEX 
R3=A 


AD1EX 

GOSBVL =FILSK+ 
* D1 at file length field 
* C{A) at end of file 


D=C A File end | 

ry 
D1=Di+ 5 Step over file length field 
CDIEX 

‘ R2=C Ptr ‘to SOD {Start of Data) 
A=R1 
GOSUB FRCRDn Find ist record to list 
GONE LIST30 Record found? 

* > ds 
XM=0 
RINCC 

* D1 pointing to 1st record to list 

LIST30 Di=Di+ 4 Point to data 

AD1EX 
AR3EX A(A)=end rec#;R3=list start 
C=R2 SOD 
GOSUB. FRCRDn — 
CD1EX te BS i an 
D1i=C Copy Di into C(A) 
GOC LIST40 C(A) at EOF or EOD 

* Position past last record to list 
GOSUB RCDSKP . 

LIST40 DO=(5) =S-Ri-1 Write out for PRPSND 

DATO=C A Save ptr past last recrd to list 
C=D A Save ptr to EOF 
RSTK=C 


* Pop update address off GOSUB stack which was put there by POLL 
GOSBVL =POPUPD 
* R3 contains list start/ S-R1-1 contains list end 
C=R3 Ptr to data start 
LIST50 Di=(5) =OUTBS 
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DAT1=C A Start of buffer for PRPSND 
D=C A Restore ptr to EOF 
GOSUB RCDSK+ 
* List B bytes, starting at D1; C(A) contains ptr to next record 
RO=C 
C=D A 
RSTK=C Save ptr to end of file 


GOSBVL =PRPSND 
* C(A)=Ptr to next record 


GOSBVL =CK"ON" Allow ATIN to interrupt LIST 

D1=C 

Di=D1l+ 4 Step over 2 bytes at record start 
CD1EX 

GONC LIST50 (BoE. 


STITLE EDTEXT Keyword Parse 
FRR HII HHI HHI HHH HEE HHI HEHEHE IEEE 


FRITH HE HHH HH HEB HEHEHE HE EEE HEHEHE HHH 


if 


Name: EDTXIp - EDTEXT parse 
Category: STPARS 


Purpose: 
Parses EDTEXT statement 


Entry: 
P = 0 
Di past tEDIT 

Exit: 
P = Q 


Calls: FSPECp, COMCKO, EOLCK, RESPTR, OUTBYT, EXPPAR, 
R3=D10, D1C=R3, GNXTCR, COMCK, CLRPRM 


Uses: A-C, D(15-5), D1,DO, RO-R3, SO-S3, $7, S10, XM 
FUNCDO, F-RO-0, F-RO-1 


Detail: EDTEXT <filename> [,<command string>] 
Algorithn: 
This statement is tokenized as a CALL: 
tEDTEXT tLITRL EDTEXT tPRMST <string> tCVAL ... 
.. <string> tCVAL tPRMEN 


Stk lvls: 6 


EERE EEE EELS EL EL EEE EE EE EE EEE 
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&* 

** History: 

+ 

+t Date Programmer Modification 

WR cee Gee Nar ee a a rem eta 
¥* 09/12/83 S§.U. Wrote routine 

¥* 10/26/83 S.U. Added check to disallow U.D.F.’s 
¥* 11/16/83 SW. Added code to disallow imbedded 

ballad quotes in a command stream that is 
ae not a string expression. 

+H 


SEIT I IIA SEHEILIAAIELSESALSLASLSESAESAAEAS SALAS AAA AN BM. 


fspece GOVLNG =FSPECe 
* 


EDTXTp LCHEX F3545845544445¢4 


GOSBVL =QUTC15 tLITRL EDTEXT tPRMST 


* Call FSPECp 
* Save D1/D0 in safe place - (R3 not reliable) 


* Legal 


CDOEX 

DO=(5) =FUNCRO 
DATO=C A 
DO=DO+ 5 
AD1EX 

DATO=A A 

DO=C 

D1=A 


GOSBVL =FSPECp 

GOC fspece Invalid file specifier? 

file specifier - ensure it’s followed by stmt end or comma 
GOSBVL =EOLCK 

GOC EDTp05 Stmt end found ? 

GOSUB comck+ Error exit if no comma 


* Restore D1/D0 


EDTpo5 


* 


DO=(5) =FUNCRO 
C=DATO A 
DO=D0+ 5 
A=DATO A 

DO=C 

D1=A 


GOSUB EDIpSB 

* Optional ,<string expr> 

GOSBVL =COMCK 

GONC EDTp55 Comma not found? 
ST=1 9 

GOSUB EDTpSB 








HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


GONC 


EDTp55 GOSUB 
EDTp57 LC(2) 
GOTO 


EDTp60 GOSUB 
GOSUB 
GOSUB 

CVAL = LC(2) 
GOTO 


EDTpSB GOSBVL 
GOSBVL 

GOSBVL 

?ST=1 

GOYES 

* Valid string 


EDTp57 {B.E.T.) 


EDTp60 Output another mull & tCVAL 
= tPRMEN 
outbyt 


resptr 

“out Output null string 
“out 

=tCVAL 

outbyt 


=R3=D10 

=CLRPRM Clear PRMCNT nibbie 
=EXPPAR 

3 Not a Legal string expr? 
EDTp15 

expression found & output 


* Now check for & disallow user-defined functions 


* Dl no longer 
D1=(5) 
A=DAT1 
PAHO 
GOYES 
GOSUB 

cval GONC 


EDTp15 GOSBVL 
DO=C 


GOSUB 
GOSBVL 
LCHEX 
2AzC 
GOYES 


EDTp20 LCASC 
PA=C 
GOYES 
LC(1) 
PA=C 
GOYES 


GOSBVL 
A=DAT1 
LCHEX 
2AzC 
GOYES 
?ST=1 
GOYES 


needed - either restored from R3 or LEXPTR 
=PRMCNT 

1 

P User-defined function found? 
EDTpi5 

resptr 

CVAL (B.E.T.) 


=D1C=R3 Restore D1/D0 


“out Output leading " 
=GNXTCR 

OD 

B 

msgprm 


ae 
B 


msgprn Don’t allow imbedded quotes 
VA 

B 

msgprn 


=QUT1T+ 

B 

OD 

B 

EDT p25 

9 Command string parse? 
EDT p20 


* File specifier parse 
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Lceasc \ \ 
?A=C OB 
GOYES EDTp25 
Lcasc \,\ 
PA#C OB 
GOYES EDTp20 
EDTp25 GOSUB "out 
GONC cval (B.E.T.) 


"out LCASC \"\ Output trailing “ 
outbyt GOVLNG =QUTBYT 
*% 


resptr GOVLNG =RESPTR 
¥ 


mumck GOVLNG =NUMCK 


errxl ST=1 4 
syntxe GOVLNG =SYNTXe Syntax error 
* 
msgprm ST=1 4 
GOVLNG =IVPARe Invalid Parm 
* 
comck+ GOSBVL =COMCK+ 
RINC | 
GONC  syntxe (B.E.T.) 
STITLE REPLACE# Keyword Parse 
FHHIHHIHHHIBIRIHHIHHIBHIHHE THE HHHHHHHHE 
FHF HHH HHH HEHE EEE EEE IEE SEES ESE E ME E-H B-EHEB- 


Name: REPLCp - REPLACE#, DELETE#, INSERT# Parse 


Category: STPARS 


INSERT# has same syntax as REPLACE# 


wt 

tH 

HE 

Ht 

+H 

** Purpose: 

i Parses REPLACE#, DELETE#, and INSERT# statements 
et 

e® ENtry: 

a P = 0 | 

oe D1 past tREPLC, tINSRT, or tDELET 

Ht 

we Exit: 

seks P = 0 

RH. 

** Calls: #CK, NUMCK, COMCKO, OUTITK, STRGCK 
HE 

** Uses: A-C, D1,D0, S0-S3,S7,S8, R3 

oe 

** Detail: REPLACE# <channel#>,<record#>;<string expr> 
ae 

HX 

He 


DELETE# <channel#>, <record#> 
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DELETp 
% 


INSRTp 


REPLCp GOSBVL 


x 


xt 

** Name: EDTXTd 
HE 

** Category: | SIDCMP 
ee 

** Purpose: 

Ke 

%* 

** Entry: 

** P = 0 
#¥ D1 past tEDTEXT 
Ke 

HE 

we ERLE: 

*% P = 20 
¥* via OUTEL1 

¥* 

** Calls: OUTBYT, 


09/12/83 


Stk lvls: 


History: 


ST=1 


GOC 
D1i=D1+ 
GOSUB 
GOSUB 
GOSUB 
?ST=1 
GOYES 
LC(2) 
2A#C 
GOYES 
GOSBVL 


5 
Programmer Modification 
S.W. Wrote routine. 


=#CK 
errxl 

2 

numck 
comck+ 
mumck 

8 
resptr 
=tSEMIC 
B 
syntxe 
=QUT1ITK 


GOVLNG =SIRNGP 


No # ? 

Step over # 

Parse channel no. 

Output tCOMMA; error if not found 
Parse record# 

DELETE# parse? 


Output tSEMIC 


STITLE EDTEXT Keyword Decompile 
FE HEHEHE NII SHIESHIEIEFE HEHEHE EEF EEE HHH HHHIFEHEIHHHHB RE 


FEIT HEHEHE EEE HEE 


- EDTEXT decompile 


Decompiles EDTEXT statement 


D(A) contains end of available memory (AVMEME) 


EXPRDC 
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Xt 

** Uses: A-C, RO-R2, D1,D0, $0,S3,$8,S10,S11 
Hk 

** Stk lvls: 5 

+t 

** History: 

Fe 

He Date Programmer Modification 
RE seeeeers see ceeseeo | eee kee hele eee ee ee 
¥* 09/12/83 S.U. Wrote routine. 

+ 


JESSIE HII IEEE HEHEHE HHH HEHE 
FEISS HEHEHE HEHEHE EEE HEE HEHEHE HHEEE 
* 
EDTXTd 
D1l=D1+ 16 Step tLITRL, \EDTEXT\, tPRMST 
GOSBVL =EXPRDC 
Di=Di+ 2 Step over tCVAL 
Lcasc \,\ 
GOSUB outbyt 
GOSBVL =EXPRDC 
D1=D1+ 


4 Step over tCVAL, tPRMEN 
GOVLNG =OUTEL1 


* 


STITLE REPLACE# Keyword Decompile 
JHE IE 
JHE HEHEHE EEE ETE HHH EHH HEHE 


2 


Name: REPLCd - REPLACE#, INSERT#, DELETE# decompile 
Category: STDCMP 


Purpose: 
Decompiles REPLACE#, INSERT#, DELETE# statements 


Entry: 
P = 0 

Di past tREPLC, tINSRI, or tDELET 

D(A) contains end of available memory (AVMEME) 


Exit: 
P * = 0 
via FIXDC 
Calls: OUTBYT, EXPRDC 
Uses: A-C, D1,DO, RO-R2, S0,S3,S8,S510,S11 
Stk lvls: 5 


FEEL ELE EEL ELLE EE ET Ett 


History: 
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%* 

am Date Programmer Modification 

WR oo ere Re ee ek ee Ce a ae a eral aly 
¥* 09/12/83 S.U. Wrote routine 

K* 


FEI HII HHHINI HEH HEHEHE HEI HHI HIFBIGEIEIIHE HEIFERS EESHEIER RE SHE 
FRERIIHIIIIRIHHIEIEIHEIHIHIHFIHIEHIHIHIHIHIHIERIHIRHIEIHHIHIEIEIBHIHI HHH BH HHHEHEHHHHEHH HEHE 
* 

DELETd 

INSRTd 

REPLCd LCASC \&#\ 

GOSUB outbyt 

SCRLLd GOVLNG =FIXDC 

* 


FIBA BIH HEHE 
FIRTH EI HH E HH BHHERHHIBEHE HH E HHH HE HHH HHH 


: 


Name: POSFIL, POSTXT - Position Memory Text File to Record 
Category: FILUTL 
Purpose: 


Position memory text file to given record. File is 
indicated by channel number (POSFIL), or file header 


(POSTXT). 

Entry: 
A(B) Channel number (POSFIL only) 
A(A) File header address (POSTXT only) 


nH Ww oH ot 


R1(A) Desired line number (first line = line 0) 
P 0 
Exit: 
HARD ERROR EXIT if Channel # not open ("File Not Found") 
ELSE: 
SBADRC = Set if Dl is positioned at a bad record 
R1 = Entry condition. 
P = 0 


Carry clear: Desired record found 


Di @ Abs address of start of line 

DO @ Abs address of start of NEXT line 

RO = Record number of last record in file 
B(S) = File protection nib from FIB 

D(A) = Abs address of EOF 

D(S) = Device code of file (POSFIL only) 
SIMID1 = Fib address (POSFIL only) 
Carry set: Desired record NOT found 

sSEOF = Set if Dl is positioned at EOF as defined 

by file chain 
C(A) = Error code: 


Seee PI eee Pe ieee ee 


File is not in memory (POSFIL only) 
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Stk 


-_—w ee 


FEPEEP ELE ELE EEE ELE EE EEE EE EEE EES 


File is private 
File is not TEXT file 
Channel mumber not found 
Premature EOF ("End of File") 

= 0 if requested line is not in file. D1 is 
positioned at EOD or EOF. D1, D, and Ri 
exit conditions are valid. 


Calls: LOCFIL, FILSK+, FRCRDr 


oervreeee 


Inclusive: A, B, C, D, RO, DO, D1, sEOF, sI/OBF, sBADRC 


SIMID1 (POSFIL only) 


lvis: 3 


Algorithn: 


Locate file FIB, return error if channel # not found 
Verify that file is in memory 

Fetch file header 

Verify that file type is TEXT 

Verify that file is not private 

Compute file start, EOF 

Call FRCRDn to locate record 

Set up exit conditions 


History: 


Date Programmer Modification 


— a oe oe — a oe we we oe oe we em eee ee me ee ee we ee en me we we ee ee we a ae we we ae eae a ie ie we ee 


09/16/83 F. Hall Designed and coded 


FAIRE HHH 


sI/OBF 


*EEL EEE EE * 


POSFIL 


EQU 10 

Locate file FIB, return error if channel # not found 
Verify that file is in memory 

Fetch file header 

Verify that file type is TEXT 

Verify that file is not private 

Compute file start, EOF 

Call FRCRDn to locate record 

Set up exit conditions 


GOSBVL =FIBADR Find FIB address (or error out) 
Di=D1+ =oPROTb Read protection nib 

A=DAT1 S . into B(S) 

B=A S : 

GOSBVL =?PRFIL Private file? 
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RINC 
D1=Di+ 
C=DAT1 
D=C 
C=C+C 
GOC 
Di=D1+ 
A=DAT1 


POSTXT D1=A 


D1=Di1+ 
C=0 
C=DAT1 
C=C-1 
2C#O 
GOYES 
Di=D1+ 
GOSBVL 
D=C 
D1=D1+ 
CD1EX 
A=R1 
GOSUB 


POSF40 LC(4) 


POSF60 LC(4) 


AEE EEL ERE EES 


Name: 
Category: 


Purpose: 


. RINYES 

(oDEVCb)-(oPROTb) Read device code 
S ; 
$ ‘ 
S Error out if external file 
POSF40 ‘ 
(oOFBEGb)-(oDEVCb) Read file address 
A 

Check file type 
oFTYPh ; 
A 
4 
A : 
A Not TEXT file? 
POSF60 
(oFLAGh)-(oFTYPh) Read protection nib 
=FILSK+ Compute EOF into D 
A ; 
5 Compute data start into C 


Recall desired record # 
FRCRDr Position to desired record 
Return if record found 


eRAnRE Was the problem EOF or EOD? 
=eEOFIL “End of file” 

=eFACCS “Invalid access" 

=eFTYPE “Invalid File Type" 


FRCRDn, FRCRDr - Find Given TEXT Record 


FILUIL 


Given TEXT file record #n (m0), or #r (r>=0), it locates 
that record. 


Entry: 
A(A) 


C(A) 
D(A) 
P 


Desired record number. First record is 
1 for FRCRDn, 0 for FRCRDr. 
Abs address of file start of data 
Abs address of EOF according to file chain 
0 
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f 


EEE EE EE EEE EET EEE EEE EEE EEL EE EEE EE ELE EE EEE EEE ES 


** Exit: 


RO = Record number we are positioned at (FFFFF if 
no records in file; end of data mark is not 
counted as a record} 

Desired record number {>=0) 

Number of bytes of data in line according to 
line length header (FFFFF if incomplete 
header in corrupt record) line 

SEOF = Set iff Di is positioned at EOF according to 

file chain 

SBADRC = Set if current record extends beyond EOF. 

This indicates file is corrupt, can occur 

for two reasons: 

a) Only 1 byte left in file (line header 
requires 2 bytes} 

b) Line header present but record length 
extends beyond EOF 


R1 
B(A) 


P = 0 


Carry clr: Desired record found 


Start of desired record 
Start of NEXT record 


Di 
DO 


@® 


Carry set: Desired record NOT found 


D1 @ EOF or EOD mark, or start of last record in 
file if sBADRC set 
Calls: PRSREC 
Uses: A, B(A), C, RO, R1, DO, D1, sEOF 
Stk lvls: e 
Algorithn: 


Save current record = -1 
Save current record address 
Clear sEOF, sBADRC 


1.0 Parse record header, return “Not found" if no record 

Increment current record # 

If current record # = desired record number, then 
Return “Found” 

If sBADRC is clear, then 
Go to 1.0 

Else 
Return "Not found" 

History: 
Date Programmer Modification 
09/14/83 S.W. Wrote routine. 
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¥ 


FRCRDn 4=4-1 & Convert line # to record # 
FRCRDr Ri=A Save desired record number 
A=0 Y Save current record number = -1l 
A=A-i A 
RO=A : 
ST=0 SEOF Clear status 
ST=0  sBADRC ‘ 
FRCR10 GOSUB PRSREC Parse record 
RTNC Return if no such record 
DO=C DO = start of next line 
A=R0 Increment current record number 
A=A+1 A 
RO=A 5 
C=Ri Are we at desired record number? 
?A=C A . 
GOYES rtncc . return "Found" if so 
?ST=1 sBADRC Return “Not found" if bad record 
RTNYES 
CDOEX C = start of next line 
GONC FRCRi0 Loop again (BET) 


FEI EEE EE IEEE FEE IEEE HE IEEE HEHE E HE FETE DE HE FE HE HEE HEHEHE HEH 
FEI IIE LEE EEE SEE SEE ESE SEE EEE FETE PIE FESS FEES HEISE SSH: 


Name: PRSREC - Parse Text Record Header 


Category: FILUTIL 


Purpose: 
Examine the line length header of a TEXT file record to 
determine line length for normal record, or presence of 
end-of-data (EOD) mark, or presenceof end-of-file (EOF), 
or absence of complete line header (corrupt file). 


Entry: 
CA) = Starting address of record 
D(A) = EOF from file chain 
P = QO 
Exit: 
D1 @ Starting address of record 
D(A) = EOF from file chain 
P = QO 
Carry clear: Record exists 
B(A) = Number of bytes of data in record 
CA) = Starting address of next record 


EERE EE EE ELE EER EEE EEE EER EE 


SBADRC = Set if line goes beyond EOF, else unchanged 
Carry set: No record present (at EOF, EOD, or no header) 
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B(A) = 0 if at EOF or EOD 
= -1 if mo line length header present 
SBADRC = Set if no header present, else unchanged 
SEOF = Set if at EOF, else unchanged 
Calls: SUPBYT - 


oee eee 


Inclusive: A, B(A), C, D1, sSEOF, sBADRC 
Stk vis: 1 = 


Algorithn: 


Set #Bytes = 0 

If current position = EOF then 
Set sEOF 
Return "Not found" 

If line -header is incomplete, then 
Set sBADRC . 
Set #Bytes = -1 
Return "Not found” 

If line header = EOD mark (FFFF), then 
Return "Not found" 

Compute #Bytes in line 

Compute start of next line 

If start of next line > EOF, then 


_ + ., Set SBADRC 
Return “Found” 
History: 
Date. : Programmer . Modification 
09/19/83 FH Adapted from code by Ut 


PURT IS C2 tee Peat ce eer tes treats 


FHI HHH EHH HEHE IEEE EEE SESE TE HEE FE SESE TEESE SESE EHEC HEHE ME ESE HEE ESE EEE 


PRSREC 


B=0 A Preset #Bytes = 0 

D1i=C D1 = start of line 

2C>=D A At EOF? 

GOYES PRSR10 

Di=Di+ 4 Check if line header present 
CDIEX ‘ 

70>D OA Line header missing? 

GOYES PRSR20 ; 

A=DAT1 4 Read line header 

GOSUB swpbyt Compute B = #Bytes of data 
P= 3 : 

B=A UP ‘ 

C=B A Test for EOF, compute #Bytes 


B=B+1 WP 
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P= 0 
RINC Return "Not found" if EOD 
BCEX A Restore B = #Bytes, C = #Bytes+i 
CSRB Round to even #bytes (LIF stndrd) 
C=C+1 A Compute total # nibs in record 
C=C+C A . #bytes + 2 for header 
C=C+C A . #nibs + 4 for header 
AD1EX Compute C = start of next line 
D1=A : 
C=A+C A . 
2C<=D A NOT corrupt record? 
GOYES rtncc 
ST=1 SBADRC set “Bad record” 
rtncc RINCC Return "Found" 
¥ 
PRSR10 ST=1 #SEOF Set EOF flag 
RINSC Return "Not found” 
*% 
PRSR2O B=B-1 A Set #bytes = -1 
ST=1 SBADRC Set "Bad record" 
RINSC Return “Not found” 
* 


SESSILIS IIIS SAH HEE SE SESS SN HALAS AAAS HA 
KEK KERMA IIIA IIIS SIE SSID A SASS SISSIES 


Name: RCDSKP - Record Skip 
Category: FILUTL 


Carry set => No record to skip 
Di = Entry condition, which points either at EOF, 
end of data (FFFF), or at an incomplete 
line header 
sEOF = Set iff Dl points to EOF 


xe 

¥* 

te 

Ht 

ee 

** Purpose: 

as Skips over a TEXT file record. 

Kt 

** Entry: 

ee D1 @ Record start (prior to 2 byte length field) 
a D(A) = EOF from file chain 

a P = Q 

He 

em” ERTS 

e P = 0 

=e Carry clr => 

an D1 @ Current record first character (after. 
** 2 byte length field) 

ae B(A) = Number of bytes of data in record 

ae C(A) = Address of next record 

ee SEOF = 0 

io SBADRC = Set iff current record extends beyond EOF 
x 

%% 

He 

#% 


17-37 





——| 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


He SBADRC = Set iff header incomplete, else 0 
xe 

** Calls: PRSREC 

we ' 

** Uses: A, B(A), C(A), D1 

ee 

** Stk lvls: 2 

He 

##* History: 

ee , . 

Ht Date Programmer Modification 
ME cee 0 UC Shee Ree eee ee enn ee eee nem eeaonen 
** 09/14/83 SU Wrote routine. 

** 09/19/83 FH Adapted for FILESZR. 

Ht 


=RCDSK+ Di=D1- 4 Point to start of record 

=RCDSKP CD1EX Cc = start of line 
ST=0 sEOF Preset status 
ST=0  sBADRC : 
GOSUB PRSREC Parse record 
RINC Return if no record to skip 
D1=D1+ 4 Move to first character of record 
RINCC 


STITLE SEARCH@ Function Execute 
*10 CALL SC @ END 
*20 SUB SC 
*30 DIM $9$[96] ,S$[96] ,T$[96] ,T1$[96] 
*40 DATA \".@ 
*50 DATA ABC 
*60 R=0 
*70 READ S9$ @ DISP "Pattern: ";S9$ 
*80 ON ERROR GOTO 270 
*90 READ T$ @ DISP “Target: ";T$ 
*100 IF S9$[LEN(S9$)]="\" AND S9$[LEN(S9$)-1]#"\\" THEN 
* $9$=S9$ (1, LEN(S9$)-1] 
*110 S$=S9$ @ C$= s${1, 1] @ I=1 @ A0=0 @ R=0 
*120 IF C$="" THEN 270 
#125 IF C$<>"\" THEN 190 
*127 IF S$(2]#"$" THEN 140 
*128 IF AO AND T$<>"" THEN 270 ELSE I=LEN(T$)+1 @ T1$="" @ GOTO 280 
*130 IF C$<>"\" THEN 190 
*140 IF S$(2,2J="\" THEN 240 
*150 s$-s$(2} @ C$-s${[1,1] 
*160 R=NOT R 
¥170 IF C$="*" AND R AND NOT AO THEN 
* A0=1 @ S$= S$ [2] @ C$=S$[1,1] @ GOTO 130 
#190 IF R AND (C$="." OR C$="@" OR C$="$") OR C$="\" THEN 240 
#200 IF C$="" THEN T1$="" @ GOTO 280 
*210 FOR I=I TO LEN(T$) @ IF C$=T$[I,1] THEN 240 
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¥220 
*230 
#240 
*250 
*260 
*270 
*280 
*290 
*300 
310 


*320_ 


¥330 
#340 
¥350 
*360 
*370 
*380 
*390 
*400 
¥405 
¥*410 
*420 
*430 
*440 
*450 
* 

*460 
¥470 
*475 
*480 
*485 
*490 
*500 
*510 
¥520 
*530 
*540 
*550 
*560 
¥570 
*580 
*590 
¥600 
*610 
*6§20 
*630 
*640 
*650 


IF AO THEN 90 
NEXT I @ GOTO 90 
T1$=T$[I] @ CALL SCN(S$,T1$, (R) ,M) 
IF M THEN 280 
I=I+1 @ IF NOT AO AND I<=LEN(T$) THEN 190 
DISP “not found" @ GOTO 300 
DISP “found: ";T1$ 
DISP "Start:";I;"  Length:"; LEN(T1$) 
END SUB 
SUB SCN(S$,T$,R,M) 
DISP S$;" "3 T$;R 
DIM $1${96] ,T1$[96] 
Sl=1 @ Tl=1 @ S3=LEN(S$) @ T3=LEN(T$) 
c$=s$[S1,S1] 
IF C$="" THEN T$="" @ GOTO 640 
IF C$#"\" THEN 405 
S1=S1+1 @ C$=S$(S1,S1] 
IF C$="" THEN T1-Ti-1 @ GOTO ’EXIT’ 
IF C$#"\" THEN R=NOT R 
IF NOT R THEN 440 
IF C$="." THEN 475 
IF C$="@" THEN $1=S1+1 @ GOTO 530 
IF S$[(S1]="$" THEN 510 
IF C$#T$(T1,T1] THEN 500 
S1=Si+1 @ IF S1>S3 THEN 
BEEP 0 @ ’EXIT’: T$=T${1,T1] @ GOTO 640 

Ti=Ti+1 @ IF T1>T3 THEN 480 
GOTO 350 
IF T1°T3 THEN 500 ELSE 450 
IF R AND S$[S1,S1]="@" THEN $1=S1+1 @ GOTO 480 
IF R AND S$[S1}="$" THEN 640 
IF NOT R AND S$[Si]="\" THEN R=1 @ S1=S1+1 @ GOTO 480 
M=0 @ GOTO 650 
IF TioT3 THEN ’EXIT’ ELSE 500 
T1=T1+1 @ $1=S1+1 @ IF T1>T3 THEN 500 
IF $1>S3 THEN 640 
IF NOT R THEN 580 
IF S$(S1,$1]="@" THEN $1=S1+1 @ GOTO 530 
IF S$[S1,S1]="." THEN 520 
IF S$(Si]="$" THEN 640 
IF s$(S1,Si]="\" THEN 610 
IF $$[(S1,S1]=T$(T3,13] THEN 610 
T3=T3-1 @ IF T3<T1 THEN 500 ELSE 580 
$1$=S$[S1] @ T1$=T$(T3] 
CALL SCN(S1$,T1$,(R),M) @ IF NOT M THEN 600 
T$=T$[1,T3-1)ar1$ 
M=1 
END SUB 

EJECT 


RegExp EQU 0 
TopLvl EQU 7 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


Short 
Match 
First 
Anchor 
BackS1 


2F89B 
2F8A0 
2F8A5 
2F8AA 
2FS8AF 
2F8B4 
2F8B9 
2F8CO 
pophex 


* * KK K KK KK 


fltdh 
* 


SEARCH 


SEARO5 


SEAR10 


EQU 
EQU 
EQU 
EQU 
EQU 


FUNCRO 
FUNCRO+5 = -- 
FUNCRO+10 -- 
FUNCRO+15  -- 
FUNCRO+20 -- 
FUNCR1+25 -- 
FUNCDO-2 = -- 
FUNCD1 


GOSUB 
D1=D1+ 
GOVLNG 


NI BHEX 
NIBHEX 
NI BHEX 
NIBHEX 
NI BHEX 
NI BHEX 
CDOEX 
DO=(5) 
DATO=C 
GOSUB 
RO=A 
GOSUB 
DO=(2) 
DATO=A 
GOSUB 
DO=D0+ 
DATO=A 
R1=A 
GOSUB 
A=A-1 
GONC 
A=0 
ST=6 . 
DO=D0+ 
DATO=A 
A=A-1 
GOC 
ST=1 
CD1EX 
R2=C 
DO=D0+ 
Di=(5) 
C=DAT1 


OriuMmwo wm 


NM 


Backslash character 


-- Start of pattern 


== “PC 
popir 
16 
=FLIDH 


nNnrowmaoda 


5 


=FUNCD1 
A 
pophex 


pophex 

(= FUNCRO ) +5 
A 

pophex 

5 

A 


pophex 
A 
SEARO5 
A 


First 
5 

A 

A 
SEAR10 
First 


wo 


SIMID1 


> 


End line # 

Start line # (Current Line #) 
Start column # - 1 

Temp save of SIMID1, End of File 
Current record pointer 

Start of target 


5th parm numeric -- channel # 
4th parm numeric -- end line 

3rd parm numeric -- start line 
2nd parm numeric -- start column 
lst parm string -- search string 
Requires 5 parameters 


Save DO in FUNCDBO 

RO=Channel # 

(FUNCRO+5)=end line # 
(FUNCRO+10)=start line# 

Save start line# in R1 for POSFIL 
Is column = zero? 


No, then okay 
Yes, then treat it like 1 


(FUNCRO+15)=start column-1 

Is column = one? 

No, then don’t set First flag 
Yes, then ‘enable anchoring 


R2=stack pointer 


17-40 


HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


mferr 
badrec 
err? 


nomtch 


% 
popir 

¥ 

* 


‘loop 


DATO=C 
A=RO 
GOSUB 
GOC 
DO=(5) 
C=DATO 
DO=(2) 
DATO=C 
C=D 
DO= (2) 
DATO=C 
C=R2 
CD1EX 
DO=D0+ 
DATO=C 
GOSUB 
GOC 
DO=(5) 
C=DATO 
GONC 


GOTO 
2C#0 
GOYES 
C=Re 
Di=C 
GOSBVL 
ADIEX 
ST=0 
R2=A 
C=0 
GOTO 


A 


POSFIL 

err? 

( =FUNCRO) +20 
A 

STMID1i 


A 
A 
( = FUNCRO ) +20 
A 


5 

A 

SCNPRP 
nomtch 
(=FUNCRO)+10 
A 

loop 


bserr 

A 

mferr 
=POPMTH 
Snort 


U 
return 


GOVLNG =POP1R 


( FUNCRO+20 ) =STMTID1 
Recall channel # 
Find start line # 


Recall value for SIMID1 
Restore SIMID1 
(FUNCRO+20)=End of file 
Recall stack pointer 
Dl=stack pointer 


(FUNCRO+25)=Current record pointer 
Prepare to SCAN 


Point to FUNCRO+10 


Read Current record # 
(B.E.T.) Start loop 


Recall stack pointer 


Discard pattern string from stack 
A(A)=Stack pointer 


C(A)=Current record number, DO=FUNCRO+10 


DO =D0- 
A=DATO 
?ACC 
GOYES 
DO=D0+ 
C=DATO 
D=C 

DO =D0+ 
C=DATO 
GOSUB 
GOC 
?ST=1 
GOYES 
DATO=C 
D1i=D1i+ 


5 

A 

A 
nomtcn 
15 

A 

A 

5 

A 
PRSREC 
nomtch 
SBADRC 
badrec 
A 

4 





Point to FUNCRO+5 

Read End record # 

Past last record to be searched? 
Yes, then report no match 

Point to FUNCRO+20 

Read end of file 

D=End of file 

Point to FUNCRO+25 

Read current record pointer 
Parse record length 

If EOF then report no match 
Pointing at a bad record 

Yes, then error out 

Update current record pointer to nxt ?? 
Point past record length 
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SEAR30 


nxtrec 


CD1EX 
DO=D0+ 5 
DATO=C A 
D=C A 
C=C+B A 
C=C+B A 
R3=C 
DO =DO0- 
2ST=0 
GOYES 
C=DATO A 
2B<=C A 
GOYES 
D=D+C A 
D=D+C A 
DO =DO0- 
C=DATO A 

Di=C 

B=C. A 

GOSUB SCAN 

GONC fndatc 

ST=0 First 

DO=(5) (=FUNCRO)+10 
C=DATO A 

C=C+1 A 

DATO=C A 

GOTO loop 


JHEHIRRRHHHBHHHHHHHHHHHHHHHE 


fndatc 


DO=(5) (=FUNCRO)+10 
C=0 U 

C=DATO A 

GOSUB hxdcw 
SETHEX 

R3=C 

DO=(2) (=FUNCRO)+30 
C=0 U 

C=DATO A 

CDEX A 

A=R1 

D=C-D A 

C=A-C A 

CSRB 

GOSUB hxdcw 

SETHEX 

CDEX A 


CSRB 
C=C+1 A 


C=Start of target 

Point to FUNCRO+30 

Remember start of target 

D points to start of target 


Point past end of data in record 
R3 points to end of target 

Point to FUNCRO+15 

Is this the first record? 

No, then don’t skip any columns 
Read start column - i 

Start column > last column? 

Yes, then skip to next record 


Point to starting column in target 
Point to FUNCRO 

Read pointer to start of pattern 
Free space starts here 
B(A)*Pointer to start of pattern 
Scan for pattern in target 

If found, then return result 

No longer First 

Point to FUNCRO+10 

Read current record number 
Increment current record number 
Update current record number 
Loop back to check another record 


Point to FUNCRO+10 


Read current record number 
Convert to decimal 


Save record number 
Point to FUNCRO+30 


Read start of target 
C(A)=Start of match,D‘A)*Start of tar?? 


D(A)=First char of match 
C(W)=Length of match 
C(U)=Length of match in bytes 
Convert to decimal 


D(A)=Length of match in decimal, 
C(A)=First char of match in hex nibs 
C(W)=First char of match in bytes 
Convert to option base 1 
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od 
oO 
O 
& 


GOSUB Convert to decimal 
C=R3 Recall record number 
CSL 
CSL 
CSL 
C=A 
CSL 
CSL 
CSL 
LCHEX 
CDEX 
P= 
NRMOO CSL 
D=D-1 
2C=0 
GOYES 
C=D 
SETHEX 
return A=R2 
2?ST=0 Short 
GOYES retrni 
A=A+1 A 
A=A+1 A 
retrnl1 D1zA 
Dl=D1- 16 
DAT1=C WU 
DO=(5) =FUNCD1 
A=DATO A 
DO=A 
GOLONG expr 


Make room for start col 
Copy in start col 


Make room for match length 
Initial exponent before normalization 
Copy in match length, D(X)=Exponent 


Shift one digit 

Decrement exponent 

Is mumber normalized? 

RMOO No, then keep shifting 

Yes, then copy exponent back 


ee Nes ee es Se Se See ee 
co 


% 
% 
* SCNPRP -- Pops the pattern string off stack (D1 points to string?? 
* Exit: R2 points to end of string 
* Short set iff R2 has been adjusted because 
* of a trailing backslash 
* RO is (AVMEMS)+21 
* D1 and (FUNCRO) = Start of pattern 
* Carry set iff pattern was "" or "\" 
% 
* 
* Uses: A(A),C(A),DO,R2,ST(Short) 
% 
SCNPRP ST=0 Short 
GOSBVL =REVPOP Reverses string and pops it 
CD1EX 
D1i=C 
DO=(5) =FUNCRO 
DATO=C A FUNCRO=Start of pattern 
C=C+A A 
R2=C R2=End of pattern 
17-43 


HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


* KK KK Kk KK KK KK K KR OK 


?A=0 =A Ig pattern the mull string? 
RINYES Yes, then no match found 
DO=C 
DO=DO0- 2 
A=DATO B Read last char of pattern 
LC(2) BackS1l 
PARC OB Is the last char a backslash? 
GOYES SCNP10 No, then skip . 
DO=DO- 2 Back up to next to last char 
AD1EX 
D1=A A=Start of pattern 
CDOEX C=End of pattern - 4 
PA>=C A Is the string at least 2 chars? 
RINYES No, then no match found ("\" is illeg?? 
DO=C Point to penultimate char 
A=DATO B Read penultimate char 
LC(2) BackSl 
2A=C B Is it a backslash? 
GOYES SCNP10 Yes, then leave pattern alone 
C=R2 No, then delete trailing backslash 
C=C-1 A 
C=C-1 A 
R2=C Shorten pattern to eliminate 
backslash 
ST=1 Short Remember that it was shortened 
SCNP10 DO=(5) =AVMEMS 
A=DATO A 
C=0 A 
LC(2) 21 
A=A+C A Calculate (AVMEMS)+21 for 
available memory checks later 
RO=A Save this in RO 
RTNCC 
SCAN is the search driver, it will try to find the pattern strin??- 
in the specified target string 
Entry: B(A) = Start of pattern 
R2 = End of pattern 
D(A) = Start of target 
R3 = End of target 
D1 = stack pointer (high end of available memory) 
RO = (AVMEMS)+21 
First should be set only if anchor should cause 
no match (ie first line of search and not first 
column in target line) 
Exit: No match found: Carry set 
Match found: Carry clear and 
D(A) = Start of match 
Ri = End of match 
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SCAN 


L125.1 


* 


L125.2 
MATCH+ 
L130 
L190} 


L140 


L150 


L160 
L170 


ST=0 


GOSUB 
LC(2) 
PARC 
GOYES 
DO=D0+ 
A=DATO 


LCASC 
PAC 
GOYES 
DO=D0+ 
ADOEX 
C=R2 
2ARC 
GOYES 
C=R3 


?ST=0 
GOYES 
2C#D 
RINYES 
D=C 


R1=C 
RINCC 
GOSUB 
LC(2) 
PARC 
GOYES 
A=B 
DO=A 
DO=D0+ 
A=DATO 
LC(2) 
?A=C 
GOYES 
B=B+1 
B=B+1 
GOSUB 
?ST=0 
GOYES 
?ST=1 
GOYES 
GOSUB 
LCASC 


Anchor 
RegExp 
PATCHR 
BackS1 
B 
L190 j 
2 

B 


\$\ 
L140 


L140 


Anchor 
L125.2 


PATCH+ 
BackS1 
B 

L190 

A 


2 

B 
BackS1 
B 
L240 } 
A 

A 
RETOGL 
RegExp 
L190 .2 
Anchor 
L190 
PATCHR 
VA 


Not anchored to start of line 
Regular expressions off 
Get first pattern character 


Is it a backslash? 

No, then skip 

Point to second character 

Read second character 

There must be a second character 
since SCNPRP would not have allowed 
just backslash. 


Is second character a $7? 
No, then continue 


Is second character the last? 
No, then okay 

Yes, then "\$" returns .LLLOOO 
where LLL is the target string 
length plus 1. 

Are we anchored? 

No, then match eol 

Is start = end? 

No, then \“$ doesn’t match 
Start of match = Past end of string 
End is same 

Point D1 to end of string 
Return indicating success 

Move to next char and read it 


Is it a backslash? 
No, then skip checking special chars 


Point to next char (temporarily) 
Read next char 


Is it a second backslash? 
Yes, then call SCANSB 
Move to next character 


Toggle regular expressions flag 

Are regular expressions active? 

No, then skip looking for special cha?? 
Has anchor been specified already? 

Yes, then treat ~ like any other char 
Get current pattern char 

No, then check for ~ 
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2AHC OB Is it an *? 
GOYES 1190.1 No, then check for other special char?? 
?ST=1 First Is anchoring allowed? 
RINYES No, then return indicating no match 
ST=0  RegExp Clear regular expression flag, it wil?? 
be turned back on later 
ST=1 Anchor Now anchored 
GOTO L125.1 Loop back to start 
L190 ?ST=0 RegExp Are regular expressions active? 
GOYES 1190.2 No, then skip checking for spec. char?? 
GOSUB PATCHR Get current pattern string 
L190.1 LCASC \.\ 
?A=C 6B Is current char a .? 
GOYES L240 Yes, then call SCANSB 
LC(1) \$\ 
?A=C OB Is it a $? 
GOYES L240 Yes, then call SCANSB 
LC(2) \@\ 
L240} ?A=C B Is it an @? 
GOYES 1240 Yes, then call SCANSB 
L190.2 GOSUB PATCHR Read current pattern char 
LC(2) BackSl 
PA=C OB Is it a backslash? 
GOYES L240 Yes, then call SCANSB 
L200 C=R2 Recall ptr to end of pattern 
?B<C A At end of pattern? 
GOYES 1210 No, then continue looking 
C=D A Yes, then match up to this point 
GOTO MATCH+ 
L210 8 C=R3 Recall ptr to end of target 
2C<=D A At end of target? 
RINYES Yes, then return indicating no match 
C=D A 
DO=C Point to target character 
C=DATO B Read target character 
?A=C OB Does pattern match target char? 
GOYES L240 Yes, then call SCANSB 
?ST=1 Anchor No, then is pattern anchored? 
RINYES Yes, then return indicating no match 
D=D+1 A No, then move to next target characte?? 
D=D+1 A 
| GOTO L210 See if this target char matches patte?? 
L240 ST=1 # TopLvl Calling SCANSB from top level 
GOSUB SCANSB 
Goc RINCC Return if match found 
?ST=1 Anchor Is anchor set? 
RINYES Yes, then return indicating no match 
D=D+l A 
D=D+1 A No, then move to next target characte?? 
C=R3 Recall ptr to end of target string 
7C<=D A At end of target? 
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RINYES Yes, then return indicating no match 
GONC 1190 (B.E.T.) No, then see if next char ma?? 
RINCC RINCC 


SCANSB is a recursive subroutine. 


Register usage: 

ST(TopLv1l) = Set if called at top level 

RO = (AVMEMS)+21 

Pointer past end of matched string. (T3) 


R2 = Pointer past end of search string. 
R3 = Pointer past end of target string. 
= Current position in search string. ($1) 
S D = Current position in target string. (T1i+T2) 


Di = Stack pointer. 
S RSTK = Return address 
S RegExp = Set iff regular expressions are active 


Cry 061 rey tr) Or) try ox) 1) 0) 
mn 
ow 


In the table above, lines with an E are entry conditions 
and lines with an S are stacked for each recursion 


Exit: 
Match(S9) and Carry set iff match found 
Ri = Points past match string (if matched) 
Not changed if no match found 
ST(TopLv1) clear 


.Uses: A,C,R1,D0,S0,S7,$9,S10,S11,available memory 


* ok Ok kk KK OK KOK KOK KR KK OK KK KOK KK OK KOK KOK * 


memerr GOVLNG =MEMERR Report insufficient memory 


SCANSB 
CDiEX 
D1i=C Copy stack pointer to C 
A=RO Recall limit of avail mem 
PAC UA Enough memory? 
GOYES memerr No, then error 
Di=Di- 5 
C=R1 
DAT1=C A 1 <- Ri 
Di=Di- 5 
C=B A 
DAT1=C A 2 <- BlA) 
Di=D1- 5 
C=D A 
DAT1=C A 3 <- D(A) 
2SI=1 ToplLvl 
GOYES SCNSB1 


C=R1 
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D 
D 
D 


SCNSB1 


L340 


L350 
L360 


PATCH+ 


PATCHR 


* 


fega 


4 


Qouonay” 
oem Wt pe 
me 


woo 


Pw PTww 
Owen 
on www 


A 


D(A)=Ptr to start of target for sub 


4 <- RSTIK 


5 <- RegExp (SO) 
Copy end of target to end of match 


Recall end of pattern 

At end of pattern string? 

No, then continue 

Yes, then target up to this point... 
»..nas been matched 

Return and indicate success 


Increment pattern pointer 


Copy pattern pointer to A 
Then to DBO 

Read the pattern character 
Return 


* RETOGL Toggles regular expressions on/off 


RETOGL 


RETOGO 


L370 


L380 
L390 


L400 


TSL41 
GOYES 
ST=1 
RTN 
sT=0 
RINCC 


GOSUB 
LC (2) 
PARC 
GOYES 
GOSUB 
C=Re 
2C>B 
GOYES 
D=D-1 
D=D-1 
GOTO 


LC(2) 
2A=C 





RegExp 
RETOGO 


RegExp 


RegExp 


PATCHR 
BackS1 
B 

L405 


PATCH+ 


A 
L400 
A 


A 
EXIT 


BackS1 
B 


Is the RegExp bit set now? 
Yes, then clear it 

No, then set it 

Return 

Clear RegExp bit 

Return 


Get. the current pattern char 


Is it a backslash? 

No, then continue 

Skip backslash and read next char 
Recall end of pattern 

At end of pattern? 

No, then continue 

Yes, then have matched 

not counting current target char 
Return indicating match 


Is it a second backslash? 


17-48 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


GOYES L405 Yes, then don’t toggle RegExp 
GOSUB RETOGL No, then toggle RegExp 

L405 ?ST=0 RegExp Are regular expressions active? 
GOYES L440 No, then skip looking for 


special characters 
L410 LCASC \.\ 
B 


L475 = C=R1 Yes, then recall end of target 
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PAC Is ita .? 
GOYES L420 No, then continue 
?D<C OA Is there a character to skip? 
GOYES 1450 Yes, then okay 
GOTO L500 No, then indicate match not found 
* 
L420 LCASC \@\ 
PAHC OB Is it an @? 
GOYES 1430 No, then continue 
GOTO 1550.1 Yes, then process it 
L430  LCASC \$\ 
PAHC 8 OB Is it a $? 
GOYES 1440 No, then continue 
C=R1 Recall end of target 
2D<C OA At end of target string? 
GOYES L500 No, then report failure 
GOTO EXIT Yes, then report success 
* 
L440 C=D A Copy target string pointer to C 
DO=C then to DO 
C=DATO B Read current target char 
?A=C OB Does this match pattern char? 
GOYES 1450 Yes, then advance to next 
No, then report failure 
L500 ST=0 Match Indicate match not found 
GOTO  SCNRIN Return 
* 
L450 B=B+l A Advance pattern ptr to next char 
B=B+1 A 
C=R2 Recall end of pattern 
?B<C OA Past end of pattern? 
GOYES L460 No, then continue 
EXIT C=D A Copy current char ptr to C 
C=C+1 A 
C=C+1 A Move past current char 
R1=C Set this as end of match | 
L640 ST=1 Match Indicate match found 
GOTO  SCNRIN Return 
¥ 
L460 D=D+1 A Advance target pointer 
D=D+1 A 
C=R1 Recall end of target 
2D>=C A Past end of target? 
GOYES L480 Yes, then check for end of pattern 


HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


L480 


L480 .2 


L490NR 


L520 


L550. 1 


L530 


L540 
L550 


L560 


GOTO 


GOSUB 
B=B+1 
B=B+1 
?ST=0 
GOYES 
LCASC 
2A#C 

GOYES 
C=R2 

2B>=C 
GOYES 
GONC 


LCASC 
PARC 
GOYES 
C=Re 
2B>=C 
GOYES 


GONC 


LC(2) 
PARC 
GOYES 
ST=1 
GONC 


D=D+1 
D=D+1 
C=R1 

?D>=C 
GOYES 
B=B+1 
B=B+1 
C=R2 

2B>=C 
GOYES 
2ST=0 
GOYES 
GOSUB 
LCASC 
PARC 

GOYES 
GONC 


LCASC 
2A=C 


L350 
PATCHR 
A 


A 


RegExp 
L490NR 
\@\ 

B 


L480.2 
A 


L640 
L480 


\$\ 
B 
L500 


A 
L640 


L500 


BackS1 
B 

L500 
RegExp 
L480 


No, then continue processing pattern 


Recall current pattern character 
Increment to next pattern char 


Are regular expressions active? 
No, then check for \ 


Is it an @? 

No, then look for $ 

Recall ptr to start of pattern 
At end of pattern? 

Yes, then report success 
(B.E.T.) No, then loop back to 
check for more @’s or $ 

Yes, then check for $ 

Is it a $? 

No, then no match found 

Yes, then check if its the end of pat?? 
At end of pattern? 

Yes, then report success 

target string matchs 

(B.E.T.) No, then no match found 


Check first for backslash 

Is it a backslash? 

No, then report no match found 

Yes, then turn on regular expressions 
(B.E.T.) Now check if @ or $ follows 


Increment target ptr to next char 


Recall end of target 

Past end of target? 

Yes, then no match found 

Increment pattern ptr to next char 


Recall end of pattern 

Past end of pattern? 

Yes, then report match 

Are regular expressions active? 

No, then skip checking for special ch?? 
Recall current pattern character 


Is it an @? 
No, then continue 


Yes, then ignore it 
(Iwo @’s in a row are same as one). 


Is ita .? 


17-50 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


L570 


L580 
L580.1 


L590 


L600 


L500 j 
¥% 


L610 
L620 


SCNRIN 


GOYES 
LCASC 
PARC 
GOYES 
C=Re 
C=C-1 
C=C-1 
2B<C 
GOYES 
GOTO 


GOSUB 
LC(2) 
2A=C 
GOYES 
C=R1 
DO=C 
Do=D0- 
C=DATO 
PAC 
GOYES 
C=R1 
C=C-1 
C=C-1 
R1=C 
2D<C 
GOYES 


GOTO 


2 


DOTA gG Tag 4 
t 

ei 

_ 


=) 
OPD 


D 
C 
R 
D 
C 
D 
D 
C 
B 
D 
Cc 
D 


bh IR 
+R + 


L520 
\$\ 

B 
L580. 1 


A 

A 

A 

L580 .1 
L640 


PATCHR 
BackS1] 


B 
L610 


tt" ww fm 


610 


> > 


A 
L580 


L500 
SCANSB 


L600 
L640 


> 


NPP PoP Pu 


Yes, then skip a target char 


Is it a $? 

No, then continue 

Yes, then recall end of pattern 
Calculate addr of last char in patter?? 


Is this the last char in pattern? 
No, then continue 
Yes, then report match found 


Recall current pattern character 


Is it a backslash? 

Yes, then do recursion 

Recall end of target 

Point past end of target 

Back up to last char in target 

Read last char in target 

Does this match the first pattern cha?? 
Yes, then do recursion 

Recall end of target 


Move it back one character 

Save this as new end of target 

Is the target pointer past end? 
No, then keep looking for a match 
with this shorter @ match field 
Yes, then no match found 


Ready for recursion 
Make recursive call 
Resume search 
Report success 


5 -> RegExp (S0) 


4 -> RSTK 
3 -> D(A) 
2 -> B(A) 
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?ST=1 Match Was a match found? 
RINYES Yes, then skip restoring Ri 
Note: R1 was left pointing at end 
of match by subroutine 
R1=C 1 -> R1 
RINCC 
hxdcw GOVLNG =HXDCW 
* 
EJECT 
* 
: The string returned is in the following format on the stack?? 
* 
* 2120 i916 13912 76 1 
e.  Peeeoesesasenaas oanbwobeceeacesagececee ie cee ee + 
+ | P6 | P51 P4| P3 1 P2 | Pl | 
H#  ¢---------- +++ $-=-+4--4--4------ $e == $¢------ + 
* . 
* | 
* | Command 
* | Option char 
* Error code 
Comma EQU 11 
NEXT ST=0 Comma 
NEXT+ B=0 A°- 
NEXTOO CD1EX ; 
D1=C 
2C<=D A At eol? 
RINYES Yes, then char type=0 
Di=Di- 2 Point to next char 
A=DAT1 B Read next char 
Le(2) \\ 
2A=C 6B Is it a blank? 
GOYES NEXT00 Yes, then ignore it 
2ST=1 Comma Already had a comma 
GOYES NEXTO5 Yes, then don’t allow another 
Lce(1) \,\ 
ST=1 Comma Now have a comma or don’t care anymor?? 
?A=C B Is it a comma? = 
GOYES NEXTOO Yes, then ignore it 
NEXTO5 B=B+1 A Char type=1? 
- GOSBVL =DRANGE Is it a digit? 
GONC NEXTDG Yes, then char type=1 
B=B+l A Char type=2? 
Le(2) \.N 
PA=C OB Is ita .? 
RINYES | Yes, then char type=2 
LC(1)  \#\ 
PA=C OB Is it a #? 
RINYES Yes, then char type=e 
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B=B+1i A 
LC(1) \+\ 
?A=C OB 
RINYES 
B=B+1 A 
Le(2)  \?\ 
2A=C 8B 
RINYES 
NEXT10 B=B+1 A 
RINSC 
NEXTDG GOSUB ZEROS 
zerPrm EQU 10 
ST=0 ZerPrn 
C=A B 
B=C U 
NEXTD1 CD1EX 
D1i=C 
7C<=D A 
GOYES NXTD3. 
Di=Di- 2 
A=DATi B 
GOSBVL =DRANGE 
GOC NEXTD3 


BSLC 
BSLC 
?B=0 =P 
GOYES NEXTD2 
GOSUB NINES 
B=C W 
A=B A 
NEXTD2 B=A B 
Goc NEXTD1 
NINES LCASC \999999\ 
RINSC 


NEXTDS3 D1=Dl1+ 2 

NXID3. GOSUB ZEROS 
A=B W 
PARC OW 
GOYES NEXTD4 
ST=1 ZerPrm 

NEXTD4 GOSUB NINES 
PA<=C OU 
GOYES NEXTD5 
A=C UW 

NEXID5 B=0 A 

GOTO NEXT10 


ZEROS LCASC \00000000\ 


RTNCC 


Char type=3? 


Is it a +? 
Yes, then char type=3 
Char type=4? 


Is it-a "?"? 


Yes, then char type=4 
Char type=5 


(B.E-T-) 


Reinclude this character 
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EDPARS 


STATE1 


NIBHEX 
CDOEX 
DO=(5) 
DATO=C 
CD1EX 
R3=C 
LC(4) 
RO=C 
GOSBVL 
CON (2) 
DO=(5) 
C=RO 
GOSBVL 
C=R3 
D1=C 
GOSBVL 
CD1EX 
DO=C 
C=A 
GOSBVL 
D1=(4) 
DAT1=A 
D1=D1+ 
DAT1=A 
D1=A 
GOSBVL 
CDOEX 
DO=(5) 
DATO=C 


GOSUB 
R1=C 
R2=C 
R3=C 
C=0 
LCASC 
RO=C 
GOSBVL 
CLRST 
ST=1 
GOSUB 
?ST=1 
GOYES 
GOSUB 
REL(3) 
REL(3) 
REL(3) 
REL (3) 
REL(3) 
REL (3) 


411 


(=FUNCDO)-5 
A 


#F0O~ecnds 


=FPOLL 
=pTRANS 
=SCRTICH 


=TBMSG$ 


=POP1S 


=D1I@AVS 


=MOVEU3 


=AVMEME 


ZEROS 


S 
¥-N 


=D=AVMS 


Comma 
NEXT+ 
ZerPrm 
ZEROP1 
TYPJMP 
EDPERR 
SV1N-2 
SV1.-2 
EDPERR 
SV5-5 
SV4-4 


One string parameter 


Save PC 


Save stack pointer in R3 
Message number of cmd letters 


Poll will change RO to some other 
message number if translation occurs 
Put cmd letters in SCRICH memory 
Initialize SCRICH to cad letters 


Restore stack pointer 
Get string from stack 


DO=Start of source 

C(A)=Length 

A= (AVMEMS) 

Initialize FUNCDO as end of option st?? 


Initialize FUNCD1 as start of opt str?? 
DisStart of dest 


Update (AVMEME) to stack pointer 
(Parameter has been popped off) 


Initialize parameters P1,P2,P3 


Initialize parameters P4,P5,Error 


Clear status bits 


Eol 
Digit 
. or # 
+ 

? 


Letter 
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% 


ZEROP3 
ZEROP2 
ZEROP1 


SV1.-2 


SV1N-2 


STATE2 


SV3-6 


STATE6 


SV5-8 
oTATES8 


STAT9}j 
* 


EDPERR 


EDPER? 


REL (3) 


?ST=1 
GOYES 
R3=A 
ST=1 
GOSUB 
?B=0 
GOYES 
LCHEX 
2BRC 
GOYES 
eol=1 
GOYES 
GOSUB 
GOSUB 
2B#0 
GOYES 
GOTO 


C=RO 
P= 
LCHEX 
RO=C 
P= 
GOTO 


LS 
EDPER? 


ZEROS 
B 
W 


0 

NEXT 
ZerPrm 
ZEROP2 
TYPJIMP 
STATES 
SVON-3 
SV2.-3 
EDPERR 
SV5-5 
SV4-4 


ZerPrn ° 


ZEROP3 


2 
NEXT 
P 
STAT9} 
5 


P 
EDPERR 
4 
EDPERR 
SV5 
NEXT 


PE 
EDPERR 
STATES 


First parameter found 


Eol 
Digit 
. or # 
+ 

? 


Letter 
Is parameter zero? 
Yes, then error 


Third parameter found 


Option already specified? 
Yes, then error 


Is it an Eol? 
No, then error 
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SV5 B=A A 
BSLC 
BSLC 
A=R0 
B=A B 
A=B A 
RO=A 
ST=1 4 
RINCC 
* 
* 
SV2.-3 GOSUB ZEROS 
C=A B 
A=C WU 
SV2N-3 R2=A 
ST=1 1 
STATE3 GOSUB NEXT 
LCHEX 4 
2?B=C P 
GOYES Sv5-5 
2B«C P 
GOYES EDPERR 
* Fall into SV4-4 
* 


* 


* Translate from CDEFHILMPRST 
* 


SV4-4 


SV4-41 


SV5-5 
STATES 


ABCDEFGHIJKL 
GOSBVL =CONVUC 
DO=(5) =SCRICH 
B=A A 
Lc(2) \A\ 
P= 11 
A=DATO B 
?A=B B 
GOYES S$v4-42 
C=C+1l A 
DO=D0+ 2 
P=P-1 
GONC SV4-41 
C=RO 
C=B B 
P= 15 
LCHEX 4 
GOTO  EDPER? 


GOSUB SV5 
GOSUB NEXT 
LCHEX 5 
?B=C OP 
GOYES SV4-4 


Fifth parameter found 


Second parameter found 


to 


Loop back for next possible cmd 
Return invalid command letter 


Error in parameter 4 (command) 
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ae 


SETP6S 


SV4-43 


* 


GOTO  EDPERR 


CD1EX 


GOSUB SETP6S 


DO=DO- 5 
C=DATO A 


D1i=C 
ST=1 


5 


Parameter 6 found 


Set start of P6 to (D1) 
Point at FUNCDO 

Read end of 6th parameter 
This is new current loc 
Sixth parameter found 


* Do we need to indicate that this parm has been found???? 


SV4-42 


STATE4 


SV6-7 


SV6-71 


GOTO 
A=RO 
A=C 
RO=A 
P= 
LCASC 
PA=C 
GOYES 
C=C+1 
PA=C 
GOYES 
GOSUB 
GOSUB 
REL(3) 
REL (3) 
REL (3) 
REL(3) 
REL (3) 
REL (3) 


D1i=Di+ 
A=RO 
LCASC 
PARC 
GOYES 
GOSUB 
D1=D1- 
CD1EX 
D1=C 
2C<D 
GOYES 


STATES 
B 


0 
\J\ 
B 


SV4-43 
A 

B 
SV4-43 
NEXT 
TYPJMP 
STATES 
SV3-6 
EDPERR 
EDPERR 
EDPERR 
SV6-7 


\B\ 


SV4-43 
SETP6S 


A 
STATE7 


A=DAT1 B 


LC(2) 


WA 


Is it a replace command? 


Is it a search command? 


Eol 
Digit 
or # 


“ 


Include this char in parm 6 


Is it a delete command? 
No, then P6 is rest of line 
Set start of P6 to (D1) 
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xk kK Ee * 


?A=C OB 
GOYES SV6-72 
LC(1)  \+\ 
7A=C OCB 
GOYES SV6-72 
LC(1) \,\ 
PA#C OB 
GOYES SV6-71 
SV6-72 D1=Di+ 2 Don’t include ",", "+", or " " in P6 
CD1EX 
D1=C 
DO=DO- 5 Point to FUNCDO 
DATO=C A P6 ends here 
STATE7 GOSUB NEXT 
LCHEX 3 
?Bac 8 6OP 
GOYES STAT71 
GOTO SV5-8 
STAT71 ?B=0 P 
GOYES STATES 
GOTO EDPERR 
STATES 
GOSUB PARMIB 
A bit set in the following table indicates that the 
corresponding parameter may not be specified 
Parameter # 123456 
NIBHEX 63 011011 blank (Goto) @ 
NIBHEX 41 001010 Copy A 
NIBHEX 40 001000 Delete B 
NIBHEX 73 111011 Exit C 
NIBHEX 30 110000 Format D 
NIBHEX 30 110000 Help E 
NIBHEX 63 011011 Insert F 
NIBHEX 00 000000 List G 
NIBHEX 40 001010 Move H 
NIBHEX 00 000000 Print I 
NIBHEX 40 001000 Replace J 
NIBHEX 40 001000 Search K 
NIBHEX 63 011011 Text L 
PARMIB C=RSTK 
A=R0 
” Note that LSD of ASCII blank is 0. 
B=0 A 
B=A P 
B=B+B A 
C=B+C A 
DO=C 
A=DATO B 
C=ST 
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* 


* 


EDP70 


mu we 


Now its time to build 


EDP80 GOSBVL 
CR1IEX 
D1i=D1- 
DAT1=C 
C=R2 
Di=D1- 
DAT1=C 
C=R3 
D1=D1- 
DAT1=C 
C=R0 
D1=D1- 


DAT1=C 


CSR 
CSR 
Di=D1- 
DATi=C 
LCHEX 
CSLC 
D1i=D1- 
DAT1=C 
DO=(5) 
C=DATO 


DO=D0+ 
A=DATO 


GOSBVL 
DO=(5) 
C=DATO 
DO=C 
ST=0 
GOVLNG 


TYPJMP C=B 


EDP80 
A 


A 


EDP70 


S 


=D1=AVE 


12 
12 


12 
12 


12 
12 


WWNP YP wh 


FUNCDO 


mm un on 


5 

A 

=MOVED2 
(=FUNCDO)-5 
A 


0 
=ADHEAD 


A 


Stack entry. 


Di&C(A) = (AVMEME) 
Ri=Start of stack item 


Write out Pl 


Write out P2 


Write out P3 
Recall P4,P5 


Write out P4 


Write out P5 


Write out error code 


Read end of last parameter 
C(A)=Start of source 


Read start of last parameter 


A(A)=End of source 
Move final string onto stack 


Restore PC 
Don’t return from ADHEAD 
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~~ MSG$07 
MSG$09 


MSG$15 


% 


SCRLEX 


GOVLNG 


EJECT 
NIBHEX 
GOSUBL 
GOSUBL 
GONC 
7XM=0 
GOYES 


A=0 
RO=A 

SETHEX 
D1=D1+ 
GOSBVL 
GOSBVL 
CON (2) 


GOSBVL 
C=RO 

GOSBVL 
GOV LNG 


GOSBVL 
LCHEX 
PA>=C 
GOYES 
RO=A 
ASR 
ASR 
ASR 
PA>=C 
GOYES 
GOSBVL 
C=RO 
C=0 
A=A+C 
GOSBVL 
GOC 


EJECT 

NIBHEX 
CON (2) 
CON (2) 
NIBHEX 


NI BHEX 
CON (4) 
CON (4) 
CON (5) 


=TBLJMC 


811 | 
popir 
fltdh 
MSG$07 


MSG$15 


— <n ae oon ae ae 


=HEXDEC 
00256 

X 
MSG$07 


00000 


F 
(L2TbSt)+1-(*) 


9) 
0 


numeric. 

cplx or string. 
round. 

mull message. 
or Inf? 


one argument: 
Pop; error if 
De-normalize, 
NC= neg real; 
Real>1E6, NaN 
No. 

Yes. Null message. 

Null message. 

Store msg# in RO. 

(DEC mode from MSG$15. ) 
D1 past stack item. 


Poll for translation. 


Set DO= AvMemSt. 

Fetch message number. 
Build msg in avail mem. 
Put it on stack, exit. 


Arg back to decimal. 


Msg number>256? 
Yes. Null msg. 

Save msg number. 
LEX ID# to A(X). 


LES ID# > 256? 

Yes. Null msg. 

Multiply LEX ID# by 256. 
Fetch msg number. 

C(A)= msg. 


e.g., converts 17025 to 1119. 
(BET) 


Id 

Lowest Token 

Highest Token 

End of lex table chain 


Speed table omitted 
Offset to text table 
No message table 

No poll handler 
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* Main 


* Text 
LeToSt 
* 


L2TbEn 
* 


SCRLLp 
% 


SCROLL 


SCRL10 


SCRL20 
SCRL30 


STITLE 
Table 


CON (3) 
REL(5) 
NIBHEX 


CON (3) 
REL(5) 
NI BHEX 
STITLE 
Table 


NI BHEX 
NIBASC 
NI BHEX 


NI BHEX 
NIBASC 
NI BHEX 
NIBHEX 


GOVLNG 


REL(5) 
REL(5) 
GOSUBL 
CON (5) 
GOSBVL 
A=DAT1 
GOSUBL 
A=A-1 

GONC 


Main 


11 
SCROLL 
D 


0 
MSG$ 
F 
Text 


7 


\MSG$\ 
30 


B 
\SCROLL\ 


20 
TEE 


=FIXP 


OCRLLd 
SCRLLp 
mgosub 
=EXPEXC 
=D1=AVE 
A 
pophex 
A 
SCRL10 


95 


SCRL20 
A 

B 
=DSPBFS 
A 

A 


B 


Table 


02 SCROLL 


03 MSG$ 


Table 


Text table start 


MSG$ 


SCROLL 


Text termination 


Evaluate expression 


Pop hex number off stack 
Convert to option base 0 
If non-zero then skip 
Use zero 


Copy to B(A) 

Read window length 

C(B)=Start of last window 

Is specified start>last start? 


No, then okay 
Yes, then just use last start 


Calculate address of character 
Point to this character 
Read character at this spot 
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2C#0 8=—oiB Is it a mill? 
GOYES SCRL40 No, then okay 
A=A-1 A Yes, then look one char 
GONC SCRL30 If not at start of buf, then loop bac?? 
A=0 A Otherwise, just use 0 
SCRL40 DO=(4) =FIRSTC 
DATO=A B Write out calculated FIRSIC 
DO=D0O- (FIRSTC)-((DSPSTA)+3) 
C=DATO A 
CSTEX 
BitsOk EQU 1 
ST=0 BitsOk 
CSTEX 
DATO=C A 


. GOSBVL =SCRLLR 
nxtstm GOVLNG =NXISIM 
% 


# 
* End of LEXFILE 
* 


FILEND 
END 


17.4 LEX File Showing Use of Speed Table 


Following is a small sample LEX file with a speed table. This 
example is simply for illustration, since speed tables are 
appropriate for lex files with a very large number of tokens, which 
we have omitted here for space considerations. 


This LEX file defines the following tokens: 


Token LEX File 

Number Token Token Symbol Description 

1 FUNCT FUNCx A function 

2 BAT BATX A statement 

3 BATIER BATRx A longer statement 
4 TOKEN xTOKEN An arbitrary token 
5 QUIT QUITx A non-programmable 


command 
This LEX file includes the necessary external references to the 
poll handler address, the various execution addresses, and the 
end-of-file. This example contains a SPEED table which for so few 
keywords is wasteful and probably wouldn’t be used if this were a 
real LEX file. 
TITLE Lexical Analyzer Tables--ID=FE 
* This file was generated on Wed Dec 15, 1982 2:58 pm 
* File Header 
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NIBASC \TESTFILE\ File Name 
CON(4) =fLEX File Type 
NIBHEX 00 Flags 
NIBHEX 8541 Time 
NIBHEX 512128 Date 
REL(5) =FILEND File Length 
* 
NIBHEX EF Id 
CON(2) 1 Lovest Token 
CON(2) 5 Highest Token 
NIBHEX 00000 End of lex table chain 
* 
* Speed Table 
NIBHEX 0 Speed table exists 
CON(3) (IxTbEn)-(TxTbSt) A 
CON (3) 0 B 
CON(3) (TxTbEn)-(TxTbSt) C 
CON(3) (TxTbEn)-(TxTbSt) D 
CON(3) (TxTbEn)-(TxTbSt) E 
CON (3) 24 F 
CON(3) (TxTbEn)-(TxTbSt) G 
CON(3) (TxTbEn)-(TxTbSt) H 
CON(3) (IxTbEn)-(TxTbSt) 1 
CON(3) (IxTbEn)-(TxTbSt) J 
CON(3) (TxTbEn)-(IxTbSt) K 
CON(3) (IxTbEn)-(TxTbSt) L 
CON(3) (TxTbEn)-(TxTbSt) M 
CON(3) (IxTbEn)-(TxTbSt) N 
CON(3) (TxTbEn)-(TxTbSt) 0 
CON(3) (TxTbEn)-(TxTbSt) P 
CON (3) 37 Q 
CON(3) (IxTbEn)-(TxTbSt) R 
CON(3) (TxTbEn)-(TxTbSt) S$ 
CON (3) 48 T 
CON(3) (TxTbEn)-(TxTbSt) U 
CON(3) (TxTbEn)-(TxTbSt}) Vv 
CON(3) (TxTbEn)-(TxTbSt) U 
CON(3) (IxTbEn)-(TxTbSt) xX 
CON(3) (TxTbEn)-(IxTbSt) yY 
CON(3) (IxTbEn)-(TxTbSt) Z 
NIBHEX 0 Speed table exists 
CON(4) (IxTbSt)+1-(*) Offset to text table 
CON(4) 0 No message table 
REL(5) =POLHND Offset to poll handler 
STITLEMain Table 
* Main Table 
=KromFE 
* 
CON(3) 24 01 A function 
REL(5) =FUNCx 
NIBHEX F 
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CON (3) 15 
REL(5) =BATx 
NIBHEX D 


CON (3) 0 
REL(5) =BATRx 
NIBHEX D 
=XTOKEN EQU 
CON(3) 48 
NIBHEX 00000 
NIBHEX 0 


#04 


CON (3) 37 
REL(5) =QUITx 
NIBHEX 1 
STITLE Te x t 
* Text Table 


TxTbDSt 
* 


NIBHEX B 
NIBASC \BATTER\ 
NIBHEX 30 


NIBHEX 5 
NIBASC \BAT\ 
NIBHEX 20 


NIBHEX 9 
NIBASC \FUNCT\ 
NIBHEX 10 


NIBHEX 7 
NIBASC \QUIT\ 
NIBHEX 50 


NIBHEX 9 
NIBASC \TOKEN\ 
NIBHEX 40 
NIBHEX 1iFF 

END 


TRTbEn 


Design Description 


02 A statement 


03 A longer statement 


04 A token 


05 A non-programmable command 


Table 


Text table start 


A longer statement 


A statement 


A function 


A non-programmable c 


A. token 


Text termination 
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17.5 Foreign Language Translation of Messages 


See the chapter titled “Message Handling” for a complete descriptio?? 
of the construction and implementation of message tables. Language 
translators are LEX files with one purpose: to translate messages 
from master LEX files. These messages are displayed for errors, 
warnings, and system messages, for the ERRM$ and MSG$ (MSG$ is foun?? 
in LEX file #82), and for the g-lERRM keystroke. 


17.5.1 One-shot Mainframe Translator 


This Spanish translator for mainframe messages would ALWAYS 
produce Spanish translations, as long as it is present in memory; 
hence the term "one-shot". To disable the translation, it must 
be purged from memory. 


TITLE LEXFILE<840123.1614> 
* This file was generated on Ved Oct 19, 1983 9:46 am 


* File Header 
NIBASC \ESPO001 \ File Name (for lack of better one...) 


CON(4) =f£LEX File Type 
NIBHEX 00 Flags 
NIBHEX 6490 Time 
NIBHEX 910138 Date 
REL(5) FILEND File Length 
* 
NIBHEX 10 Id 
CON(2) 255 Lowest Token 
CON{2) 0 Highest Token 
NIBHEX 00000 End of lex table chain 
% 
NIBHEX F Speed table omitted 
CON(4} (TxTbSt)+1-(*) Offset to text table 
REL(4) MSGIBL Offset to message table 
REL(5) POLHND Offset to poll handler 
STITLEMain Table 
* Main Table 
=xrom01 


STITILE Text Table 
* Text Table 
TxTbSt Text table start 
THTbEn NIBHEX 1FF Text termination 
STITLE Mainframe Messages: Espanol 
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* NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE 


tr wen ee ee ee ee ee ee + 
| The following Spanish messages are not meant to be | 
| the official translations of the mainframe messages. | 
| Please excuse the attempt at translation -- this is | 
| only meant to be an example of a complete translator | 
| LEX file. | 
Sp eee ee + 

MSGTBL 

CON(2) 1 Min message # 
CON(2) 249 Max message # 


% 
* -- Note that message 00 need not be included because 
* message 00 from the mainframe is a mill message. 
i I.e., MSG$(0) does not have to be translated. 

*% 


bd ee Sr 2 2 a 2 2 rr er ra ca 


* Message number 8 is placed first because the first !! 
* nibble past the range field MUST be 0 !! Message !! 


* number 8 has a total length of 16; if this is Vs 
* changed, another message with length=16 (or a i 
* multiple of 16) MUST be placed first. ie 
* /Zero i! 
=SZRDIV EQU 8 /Cero id 
CON(2) 8 Message number 8 
CON(1) 4 it 
NIBASC \/Cero\ i 
CON(1) 12 1! 
WUPUUEELUDOUC UEP PEP eE EDEL PEPE Pes eee e epee eyeeagieny 
* Under f low 
* 
=SUNFLW EQU 1 Valor Menudo 
CON(2) 23 
CON (2) 1 Message number 1 
CON(1) 13 
CON(2) =sVALOR 
CON (1) 6 
NIBASC \ Menudo\ 
CON(1) 12 
* Overflow 
* 
=sOVFLW EQU 2 Valor Rebosado 
CON(2) 11 
CON(2) 2 Message number 2 
CON(1) 13 
CON(2) =sVALOR 
CON(1) 13 


CON(2) =sREBOS 
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CON(1) 12 
~ EXPONENT (0) 
* 
=sEXPO EQU <i EXPONENT (0) 
CON(2) 8) 
CON(2) 3 Message number 3 
CON(1) 14 
CON(2) =eEXPO 
CON(1) 12 
* TAN=Inf 
% 
=STININF EQU 4 TAN=Inf 
CON (2) 8 
CON(2) 4 Message mumber 4 
CON(1) 14 
CON(2) =eININF 
CON(1) 12 
* 0“ neg 
* 
=s0°NEG EQU 5 0*neg 
CON (2) 8 
CON(2) 5 Message number 5 
CON(1) 14 
CON(2) =e0°NEG 
CON(1) 12 
* 070 
+ 
=s0°0  EQU 6 070 
CON (2) 8 
CON(2) 6 Message mumber 6 
CON(1) 14 
CON(2) =e070 
CON(1) 12 
* 0/0 
* 
=SZRO/0 EQU 7 0/0 
CON (2) 8 
CON(2) 7 Message number 7 
CON(1) 14 
CON(2) =eZRO/0 
CON(1i) 12 
* 
* message number 8 is found at the top of the table 
% 
* Neg’Non- int 
* 
=SNEG°X EQU 9 Neg’ (Nro ni Entero) 
CON(2) 45 
CON(2) 9 Message number 9 
CON(1) 10 


NIBASC \Neg* (Nro\ 
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NIBASC \ ni\ 


CON (1) 7 
NIBASC \ Entero)\ 
CON(1) 12 
* SQR (neg) 
* 
=sSQR- EQU 10 SQR (neg) 
CON (2) 8 
CON(2) 10 Message number 10 
CON(1) 14 
CON(2) =eSQR- 
CON(1) 12 
id Invalid Arg 
* 
=SIVARG EQU 1 Operacion Prohibida 
CON(2) 14 
CON(2}) il Message number i1 
CON(1) 13 
CON(2) =sOPERA 
CON(1) 13 
CON(2) =sPROHI 
CON (1) 0 
NIBASC \a\ 
CON(1) 12 
* LOG (0) 
* 
=SLNO EQU 12 LOG(0) 
CON(2) 8 
CON(2) 12 Message number 12 
CON(1) 14 
CON(2) =eLNO 
CON(1) 12 
* LOG(neg) 
* 
=sLOG- EQU 13 LOG (neg) 
CON (2) 8 
CON(2) 13 Message mumber 13 
CON(1i) 14 
CON(2) =eLOG- 
CON(1) 12 
* Inf/Inf 
¥ 
=sIF/IF EQU 14 Inf/Inf 
CON(2) 8 
CON(2) 14 Message number 14 
CON(1) 14 
CON(2) =elF/IF 
CON(1) 12 
* Inf-Inf 
* 
=SIF-IF EQU 15 Inf-Inf 
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=sI F*ZR 


* 
* 


=91° INF 


% 
* 


=sINF~0O 


oe 


sSIGOP 


* 
*% 


=SUNORC 


CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON ( 1) 


8 
15 
14 
=el F-IF 
12 


16 
8 
16 
14 
=e] F*ZR 
12 


17 

8 

17 

14 
=e1° INF 
12 


18 
8 
18 
14 
=eINF*0 
12 


19 
22 
19 
13 
=SOPERA 
13 
=SDE 
4 


NIBASC \Senal\ 


CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 


NIBASC \Sin Orde\ 


le 


20 
24 
20 

8 


NIBASC \n\ 


CON (1) 


12 


Message number 


Inf*0 
Inf*0 


Message nunber 


1l“Inf 
1° Inf 


Message number 


Inf*0 


Inf*0 


Message number 


Signaled Op 


15 


16 


17 


18 


Operacion de Senal 


Message number 


Unordered 


Sin Orden 


19 


Message number 20 


Inexact 
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=SINX  EQU 21 Inexacto 
CON(2) 11 
CON(2) 21 Message number 21 
CON(1) 14 
CON (2) oo 
CON (1) 
NIBASC on 
CON(1) 12 
* 
% 
Fone nen enn ann System Errors ------------------------- 
- Low Battery 
*% 
=SLOBAT EQU 22 Pilas Descargadas 
CON(2) 41 
CON(2) 22 Message number 22 


NIBASC \sca\ 

CON(1) 5 

NIBASC \rgadas\ 

CON(1) 12 
. System Error 
* 
=sSYSER EQU 23 Error de Sistema 
CON(2) 34 
CON(2) 23 Message number 23 
CON(1) 4 
NIBASC \Error\ 
CON(1) 13 
CON(2) =sDE 
CON(1) 6 
NIBASC \Sistema\ 
CON(1) 12 

Insufficient Memory 


=SMEM  EQU 24 Menoria Insuficiente 
CON(2) 47 
CON(2) 24 Message number 24 
CON(1) 10 
NIBASC \Memoria \ 
NIBASC \Ins\ 
CON (1) 8 
NIBASC \uficient\ 
NIBASC \e\ 
CON(1) 12 
* Module Pulled 


CON(1) 10 
NIBASC \Pilas De\ 
| 


=sMPI EQU 25 Enchufe Arrancado 
CON(2) 41 
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=S2MROM 


=SAF 


* 
% 


=SRECOR 


CON(2) 25 

CON(1) 10 

NIBASC \Enchufe \ 
NIBASC \Arr\ 


CON(1) 5 
NIBASC \ancado\ 
CON(1) 12 
EQU 26 
CON(2) 33 
CON(2) 26 
CON{1) 11 
CON(1) 12 


NIBASC \Configur\ 
NIBASC \acion\ 


CON(1) 12 

EQU 27 
CON(2) 13 
CON(2) 27 
CON(1) 1 
NIBASC \AF\ 
CON(1) 13 
CON(2) =sINV-O 
CON(1) 12 


Message mumber 25 


Configuration 
Conf iguracion 


Message number 26 


Invalid AF 
AF Invalido 


Message number 27 


Snare ae Program Errors 9 ------------------------ 


EQU 28 

CON(2) 24 

CON(2}) 28 

CON (1) 8 
NIBASC \Suscript\ 
NIBASC \o\ 

CON(1) 12 

EQU 29 

CON(2) 25 

CON(2) 29 

CON (1) z 
NIBASC \Registro\ 
CON(1) 13 

CON(2) =sREBOS 
CON(1) 12 


Subscript 
Suscripto 


Message number 28 


Record Ovfl 
Registro Rebosado 


Message number 29 


‘Stat Not Found 
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=SSIMNF 


=SDATTY 


* 
+ 


=SNODAT 


=SFNNtF 


=SXFNNF 


=sXWORD 


EQU 30 
CON(2) 23 
CON(2) 30 
CON(1) 13 
CON(2) =sFALTA 
CON(1) 6 
NIBASC \Planteo\ 
CON(1) 12 

EQU 31 
CON(2) 17 
CON(2) 31 
CON(1) 3 
NIBASC \Data\ 
CON(1) 13 
CON(2) =sSINV-A 
CON(1) 12 

EQU 32 
CON(2) 17 
CON(2) 32 
CON(1) 13 
CON(2) =sFALTA 
CON(1) 3 
NIBASC \Dato\ 
CON(1) 1e 

EQU 33 
CON(2) 13 
CON(2) 33 
CON(1) 13 
CON(2) =SFALTA 
CON(1) 1 
NIBASC \FN\ 
CON(1) 12 

EQU 34 
CON(2) 15 
CON(2) 34 
CON(1) 13 
CON({2) =sFALTA 
CON(1) 2 
NIBASC \XFN\ 
CON(1) 12 

EQU 35 


Se Falta Planteo 


Message number 


Data Type 
Data Invalida 


Message number 


No Data 
Se Falta Dato 


Message number 


FN Not Found 
Se Falta FN 


Message number 


XFN Not Found 
Se Falta XEN 


Message number 


XWORD Not Found 


Se Falta XWORD 
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31 


32 


33 


34 
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CON(2) 19 
CON(2} 35 
CON(1) 13 


CON(2) =sFALTA 
4 


CON (1) 


NIBASC \XWORD\ 


CON(1) 12 


SPRMIS EQU 36 
CON(2) 31 
CON(2) 36 
CON(1) 13 


CON(2) =sVALOR 


CON({1) 1 
NIBASC \es\ 
CON(1) 13 
CON(2) =sSIN 
CON(1) 6 


NIBASC \Parejos\ 
12 


CON (1) 


=sSTROV EQU 37 
CON(2) 23 
CON(2) 37 
CON (1) 


6 
NIBASC \Letrero\ 
13 


CON (1) 


CON(2) =sREBOS 


CON(1) 12 


ae 


=SNUMIN EQU 38 
CON(2) 27 
CON(2}) 38 
CON(1) 13 


CON(2) =SASIEN 


CON(1) 8 


NIBASC \ Numeric\ 


NIBASC \o\ 
CON(1) 12 


w oe 


STOOMI EQU 39 
CON(2) 21 
CON(2) 39 
CON(1) 13 


CON(2) =sASIEN 


CON(1) 1 
NIBASC \s \ 


Message number 35 


Parameter Mismatch 
Valores Sin Parejos 


Message number 36 


String Ovfl 
Letrero Rebosado 


Message nurber 37 


Numeric Input 
Asiento Numerico 


Message number 38 


Ioo Many Inputs 
Asientos Demasiados 


Message number 39 
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CON (1) 
CON (2) 
CON (1) 


13 
=sDEMAS 
: 


NIBASC \os\ 


CON (1) 


“uw x 


STOOFI EQU 
CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


12 


40 

31 

40 

13 
=SASIEN 

10 


NIBASC \s Tan Po\ 
NIBASC \cos\ 


CON (1) 


“ x * 


SCHNL# EQU 
CON (2) 
CON (2) 
CON (1) 


12 


41 
40 
41 

9 


NIBASC \Asignaci\ 
NIBASC \on\ 


CON (1) 
CON (2) 
CON (1) 


13 
=sDE 
4 


NIBASC \Canal\ 


CON (1) 


uo 


SFWONX EQU 
CON (2) 
CON (2) 
CON (1) 


12 


42 
24 
42 

2 


NIBASC \FOR\ 


CON (1) 
CON (2) 
CON (1) 


13 
=sSIN 
3 


NIBASC \NEXT\ 


CON (1) 


to ok « 


SNXwoF EQU 
CON (2) 
CON (2) 
CON (1) 


12 


43 
24 
43 

3 


NIBASC \NEXT\ 
CON (1) 
CON (2) 
CON (1) 


13 
=SSIN 
2 


Too Few Inputs 


Asientos Tan Pocos 


Message number 40 


Chni# Not Found 
ASsignacion de Canal 


Message number 41 


FOR w/o NEXT 
FOR Sin NEXT 


Message number 42 


NEXT w/o FOR 
NEXT Sin FOR 


Message number 43 
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t OK 


n x 


“oe 


a 


“oe 


skwoGS 


SINVIM 


SINVUS 


SIVIAB 


NIBASC \FOR\ 


CON(1}) 12 

EQU 44 
CON(2) 26 
CON(2) 44 
CON(1) 2 
NIBASC \RIN\ 
CON(1) 13 

CON (2) —e 
CON (1) 

NIBASC acetek 
CON(1) 12 

EQU 45 
CON(2) 19 
CON(2) 45 
CON(1) 4 
NIBASC \IMAGE\ 
CON(1) 13 
CON(2) =sINV-0 
CON(1) 12 

EQU 46 
CON(2) 19 

CON (2) . 

CON (1) 

NIBASC Sucinck 
CON(1) 13 
CON(2) =sINV-O 
CON(1) 12 

EQU 47 
CON(2) 19 

CON (2) " 

CON (1) 

NIBASC Gees 
CON(1) 13 
CON(2) =sREBOS 
CON(1) 12 

EQU 48 
CON(2) 15 
CON(2} 48 
CON(1) 2 


NIBASC \TAB\ 


RIN w/o GOSUB 
RIN Sin GOSUB 


Message number 


Invalid IMAGE 
IMAGE Invalido 


Message number 


Invalid USING 
USING Invalido 


Message number 


IMAGE Ovfl 
IMAGE Rebosado 


Message number 


Invalid TAB 


TAB Invalido 


Message number 
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44 


45 


46 


47 


48 
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CON (1) 
CON (2) 
CON (1) 


=sSPGNF EQU 
CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


=sVCNTX EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


" oe OK 


SIVSAR EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


=sIVSTA EQU 
CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


uo ok 


sIVSOP EQU 
CON (2) 
CON (2) 


13 
=sINV-O 
le 


49 

31 

49 

13 
=SFALTA 

10 
\Subprogr\ 
\ana\ 

l2 


50 

25 

50 

7 

\Contexto\ 

13 
=sINV-O 

le 


Sub Not Found 
Se Falta Subprograma 


Message number 49 


Var Context 
Contexto Invalido 


Message number 50 


Invalid Stat Array 
Matriz de Estadisticos 


Message number 51 


Invalid Statistic 
Estadistica Invalida 


Message number 52 


Invalid Stat Op 
Operacion de Estadisticos 


Message number 53 


Lie EE 
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*% 
* 


sEOFIL 


* 
+ 


CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 


13 
=SOPERA 
13 
=SDESTA 
12 


54 
18 
54 

2 


NIBASC \Fin\ 


CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


=sILTFM EQU 


nok 


CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 


13 
=sDE 
13 
=SARCHI 
12 


55 

11 

55 

14 
=eTIM 

13 
=sINV-A 

12 


56 

18 

56 

13 
=SFALLO 

2 
\la \ 

14 
=eTFM 


=SARCHI 


=sDESCO 


End’ of File 
Fin de Archivo 


Message number 54 


Invalid Transforn 
Transform Invalida 


Message number 55 


Transform Failed 
Se Fallo la Transform 


Message mumber 56 


File and Device Errors 
File Not Found 


oe ee ee ee ee we ee we ow 0 we a we ee we oe we 


Archivo Desconocido 


Message number 57 
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CON (1) 0 
NIBASC \o\ 
CON(1) 12 
Invalid Filespec 


1 « 


SFSPEC EQU 58 Archivo Especificacion 
CON(2) 40 
CON(2) 58 Message number 58 
CON(1) 13 
CON(2) =SARCHI 
CON(1) 11 
CON(1) 14 
NIBASC \ Especif\ 
NIBASC \icacion\ 
CON(1) 12 
File Exists 


a * * 


SFEXST EQU 59 Archivo Existe 
CON(2) 23 
CON(2) 59 Message number 59 
CON(1) 13 
CON(2) =SARCHI 
CON(1) 6 
NIBASC \ Existe\ 
CON(1) 12 
Illegal Access 


n * x 


SFACCS EQU 60 Acceso Prohibido 
CON(2) 24 
CON(2) 60 Message number 60 
CON(1) 35 
NIBASC \Acceso\ 
CON(1) 13 
CON(2) =SPROHI 
CON (1) 0 
NIBASC \o\ 
CON(1) 12 
File Protect 


noe oe 


SFPROT EQU 61 Archivo Protegido 
CON(2) 29 
CON(2) 61 Message number 61 
CON(1} 13 
CON(2) =sARCHI 
CON (1) 9 
NIBASC \ Protegi\ 
NIBASC \do\ 
CON(1) 12 
: File Open 
=SFOPEN EQU 62 Archivo Abierto 
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=SFTYPE 


=sDVCNF 


we oe 


=SL2LNG 


=SPROTD 


CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON ( 1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 
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=sARCHI 
7 s 


\ Abierto\ 


12 


64 
8 


\Accesori\ 


\o\ 
13 
=sDESCO 
0 
\o\ 
12 


65 
27 
65 

8 


\Enunciad\ 


\o\ 
13 
=SREBOS 
12 


66 


Card Reader 


Message number 62 


Invalid File Type 
Tipo Invalido de Archivo 


Message mumber 63 


Device Not Found 
Accesorio Desconocido 


Message number 64 


Line Too Long 
Enunciado Rebosado 


Message mumber 65 


Errors 
Write Protected 


Prot Contra Escribir 
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=SNOTIN 


=SVFYER 


=SUNKCD 


¥ 
* 


=SRWERR 


CON(2) 47 
CON(2) 66 
CON(1) 10 


NIBASC \Prot Con\ 
NIBASC \tra\ 
CON(1) 8 

NIBASC \ Escribi\ 
NIBASC \r\ 

CON(1) 12 


EQU 67 
CON(2) 31 
CON(2) 67 
CON(1) 13 
CON(2) =sARCHI 
CON(1) 10 

NIBASC \ Equivoc\ 
NIBASC \ado\ 


CON(1) 12 
EQU 68 
CON(2) 40 
CON(2) 68 
CON(1) 13 
CON(2) =SFALLO 
CON(1) 11 
CON(1) 14 


NIBASC \la Verif\ 
NIBASC \icacion\ 
CON(1) 12 


EQU 63 
CON (2) 
CON(2) 69 
CON (1) 
NIBASC \Carta\ 
CON(1) 13 
CON(2) =sDESCO 
CON(1) 0 
NIBASC \a\ 
CON(1}) 12 


=SFALLO 


Message number 66 


Not This File 
Archivo Equivocado 


Message mumber 67 


Verify Fail 
Se Fallo la Verificacion 


Message number 68 


Unknown Card 
Carta Desconocida 


Message number 69 


R/W Error 
Se Fallo el Traslado 


Message number 70 
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=STUFAS 


=sTUSLO 


=sURGNM 


* 
* 


=SFOBIG 


CON (1) 


NIBASC \el Trasl\ 


NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


10 


\ado\ 
12 : 


71 

25 

71 

13 
=SDEMAS 


7 
\o Rapido\ 
12 


72 
29 
72 
13 

=sDEMAS 
9 


\o Despac\ 


\io\ 
12 


73 
24 
73 

5 


\Noabre\ 


13 
=sDESCO 
0 
\o\ 
12 


74 

11 

74 

13 
=SARCHI 

13 
=SREBOS 


Syntax Errors 


Too Fast 
Demasiado Rapido 


Message number 71 


Too Slow 
Demasiado Despacio 


Message mumber 72 


Wrong Name 
Nombre Desconocido 


Message number 73 


File Too Big 
Archivo Rebosado 


Message number 74 


Syntax 
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# 
=SSYNTX 


“ow x 


SPRNEX 


ue 


sQUOEX 


uo oK 


sEXCHR 


n o« *K 


sILCNT 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 
NIBASC 


75 
22 
75 

7 


\Sintaxis\ 


12 


76 
29 
76 
13 

=SFALTA 
9 


\Parentes\ 


\is\ 
12 


77 
25 
T7 
13 
=SFALTA 
7 


\Comillas\ 


l2 


78 
28 
78 

6 


\Letras \ 


+3 
=sDEMAS 
1 
\as\ 
12 


79 
28 
79 

7 


\Contexto\ 


13 
=SPROHI 


0 
\o\ 


Sintaxis 


Message number 75 


) Expected 
Se Falta Parentesis 


Message number 76 


Quote Expected 
Se Falta Comillas 


Message number 77 


Excess Chars 
Letras Demasiadas 


Message number 78 


Illegal Context 
Contexto Prohibido 


Message number 79 
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* 
* 
=SILEXP 


* 
* 


=SILPAR 


=SMSPAR 


* 
* 


=sILVAR 


* 
¥ 


=SPRCER 


CON(1) 12 

EQU 80 
CON(2) 27 
CON(2) 80 

CON (1) 8 
NIBASC \Expresio\ 
NIBASC \n\ 
CON(1) 13 
CON(2) =sINV-A 
CON(1) 12 

EQU 81 
CON(2) 11 
CON(2) 81 
CON(1) 13 
CON(2) =sVALOR 
CON(1) 13 
CON(2) =sINV-O 
CON(1) 12 

EQU 82 
CON(2) 11 
CON(2}) 82 
CON(1) 13 
CON(2) =sFALTA 
CON(1) 13 
CON(2) =sVALOR 
CON(1) 12 

EQU 83 
CON(2) 25 
CON(2) 83 

CON (1) 7 
NIBASC \Variable\ 
CON(1) 13 
CON(2) =sSINV-A 
CON(1) 12 

EQU 84 
CON(2} 28 
CON(2) 84 
CON(1) 10 
NIBASC \Preceden\ 
NIBASC \cia\ 
CON(1) 12 


Invalid Expr 


Expresion Invalida 


Message number 


Invalid Parm 
Valor Invalido 


Message number 


Missing Parm 
Se Falta Valor 


Message number 


Invalid Var 


80 


81 


82 


Variable Invalida 


Message number 


Precedence 
Precedencia 


Message number 
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* 
* 


=sI LKEY 


=SROWRN 


=SR1WRN 


=STFURN 


=SPLLC# 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


NIBASC 
NIBASC 
CON (2) 
CON (1) 
NIBASC 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 


85 
19 
85 
4 
\Tecla\ 
13 
=SINV-A 
le 


=SFALTA 


7 
\Operando\ 
12 


7 
\Operario\ 
12 


88 
31 
88 

8 


\TFM URN \ 


\L\ 
47 
0 
Ney 
31 
12 


Card Reader Messages 


Invalid Key 
Tecla Invalida 


Message number 85 


Operand Expected 
Se Falta Operando 


Message number 86 


Operator Expected 
Se Falta Operario 


Message number 87 


TEM WRN L###: <msg> 
TEM WRN L###: <msg> 


Message number 88 


Pull ### of ### 
Saque ### de ### 


Message number 89 
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“oe * 


n we 


wo «*« * 


SPLLC 


SUALGN 


SPALGN 


CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 


13 
=sSAQU 
13 
=s#de# 
12 


90 
21 
90 
413 
=SSAQU 
5 
\ Carta\ 
12 


91 
15 
91 


2 
\Esc\ 
L3 
=SALGN 
12 


92 
15 
92 
2 
\Ver\ 
13 
=SALGN 
12 


93 
17 
93 

3 


NIBASC \Leer\ 


CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 


13 
=SALGN 
12 


wk 


Design Description 


Pull Card 
Saque Carta 


Message number 90 


Urt: Align then ENDLN 
Esc: Alinee y ENDLN 


Message number 91 


Vfy: Align then ENDLN 
Ver: Alinee y ENDLN 


Message number 92 


Read: Align then ENDLN 
Leer: Alinee y ENDLN 


Message number 93 


Prot: Align then ENDLN 
Prot: Alinee y ENDLN 


Message number 94 
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NIBASC \Prot\ 


CON(1) 13 
CON(2) =sALGN 
CON(1) 12 

* 

* 

=SUALGN EQU 95 
CON(2) 21 
CON(2) 95 
CON(1) 5 
NIBASC \Dsprot\ 
CON(1) 13 
CON(2) =SALGN 
CON(1) 12 

* 

% 

=SCALGN EQU 96 
CON(2) 15 
CON(2) 96 
CON(1) 2 
NIBASC \Cat\ 
CON(1) 13 
CON(2) =sSALGN 
CON(1) 12 

* 

*% 

=STRKDN EQU 97 
CON(2) 35 
CON(2) 97 
CON(1) 5 
NIBASC \Pista \ 
CON(2) 63 
CON(1) 6 
NIBASC \Acabado\ 
CON(1) 12 


* 


Unpr: Align then ENDLN 
Dsprot: Alinee y ENDLN 


Message number 95 


Cat: Align then ENDLN 
Cat: Alinee y ENDLN 


Message number 96 


Trk ### Done 
Pista ### Acabado 


Message number 97 


FOI HHH HHH HIE HHH HHH HHI HEBHHIHEHEIHE It 
FHI HII HII HHI HEHEHE HEHE IE 


% 


**** Building Block words for messages. 
* 


* 

* 

=STRKOF EQU 2293 
CON(2) 26 
CON(2) 229 
CON(1) 6 
NIBASC \ (pista\ 
CON(1) 13 
CON(2) =s#de# 
CON (1) 0 


(trk ##4# of ###) 
(pista ### de ###) 


Message number 229 
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* 
* 


=SVALOR 


* 
* 


=SREBOS 


=SPROHI 


u*« * 


sESTAD 


we oe 


SARCHI 


NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 
CON (2) 
CON (2) 


\)\ 
12 


230 
16 
230 
4 
\Walor\ 
12 


231 
24 
re 


\ Siena 
\o\ 
le 


232 
24 
232 
8 
\ Prohibi\ 
\d\ 
12 


233 
24 
ae 


apetaciet 
\n\ 
12 


234 
26 
234 
9 
\Estadist\ 
Nic\ 
12 


235 
20 
235 


Design Description 


Valor 


Message number 230 


Rebosado 


Message number 231 


Prcohibid 


Message number 232 


Operacion 


Message number 233 


Estadistic 


Message number 234 


Archivo 


Message number 235 
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Woo 


SFALTA 


* 
* 


=sINVAL 


=sINV-O 


=SINV-A 


¥ 
* 


=SDESTA 


CON (1) 


NIBASC \Archivo\ 


CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 


CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 


€ 


le 


236 
24 
236 
8 


\Se Falta\ 


\\ 
12 


237 
2] 
est 
" 


\ Invalid\ 


12 


238 
11 
238 
13 

=SINVAL 
0 


\o\ 
12 


239 
11 
239 
=SINVAL 
\a\ 
12 
240 
240 
\ de \ 
12 


241 


Se Falta 


Message number 236 


Invalid 


Message number 237 


Invalido 


Message number 238 


Invalida 


Message number 239 


de 


Message number 240 


de Estadisticos 
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“wok 


SSIN 


=sDEMAS 


=SASIEN 


=sDESCO 


=SSAQU 


CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 


16 
241 

13 
=SDE - 

13 
=SESTAD 

1 
\os\ 

12 


242 
16 

242 
4 

\ Sin \ 
12 


243 
22 
243 
7 


\Demasiad\ 


le 


244 
20 
244 
6 


\Asiento\ 


12 


245 
28 
245 
10 


\ Descono\ 


\cid\ 
12 


246 
16 
246 
4 
\Saque\ 
12 


Message number 241 


Sin 


Message nurber 242 


Demasiad 


Message mumber 243 


Asiento 


Message number 244 


Desconocid 


Message number 245 


Saque 


Message number 246 
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Sd 
=s#de# 


=SALGN 


* 
* 


=SFALLO 


* 
* 


* 


EQU 
CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (2) 
CON (1) 
CON (2) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 
CON (1) 
NIBASC 


247 


248 
39 

248 
11 
15 

\: 


Alinee\ 


NIBASC \ y ENDLN\ 


CON (1) 


EQU 
CON (2) 
CON (2) 
CON (1) 


le 


249 
24 
249 
8 


NIBASC \Se Fallo\ 
NIBASC \ \ 


CON (1) 


NI BHEX 


12 


FF 


* Poll handler goes here. 
* provided 
% 


POLHND 


hVER$O 


* 


2B=0 


B 


GOYES hVER$O 


GONC 
C=R3 
Di=C 
A=R2 


HVER$2 


### de #4# 


Message number 247 


: Alinee y ENDLN 


Message number 248 


Se Fallo 


Message number 249 


Table terminator 


Handler for VER$ poll is 


VER$ poll? 
Yes, 


No. To hVER$2 w/carry clear. 


Di=D1- (VER$en)-(VER$st)-2 


CD1EX 
PAC 


A 


GOYES hvVER$i 


Di=C 
R3=C 


*#11 LCASC text to be returned for VER$ here 
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* Include a leading blank!! 
* 


VER$st LCASC \ ESP001\ For lack of any better name.... 
VER$en DATi=C (VER$en)- (VER$st)-2 
nVER$1 RINSKXM 

* 


*#!! Continue poll handler here: Carry is clear, VER$ poll 


* has been handled. 
*% 


nVER$2 
2?B=0 P Eliminate pIEST poll, which 
GOYES EXIT is in the following range. 
A=B OA Poll number to A (for RANGE). 
*& 
NIBHEX 33 This is a LC(4)... 
CON(2) =pTRANS pIRANS in C(B) 
CON(2) =pUARN PUARN in C(3-2) 
*% 
GOSBVL =RANGE Poll number in range? 
GOC EXIT No. 
MSGhnd A=RO0 Fetch msg number in A(3-0). 
A=0 B 
ASL A 
2A#0) OA If m/f message, A(A)=0. 
GOYES EXIT 
A=R0 M/f message. Change LEX# 
A=A+1 XS to 01. 
RO=A 
= One message in the mainframe (message #88) 
* has a type{5} insertion (indirect msg number). 
- This indirect msg number must also be translated, 
* with a nested pIRANS poll. But only if the 
* present poll is pMEM, pERROR or pWARN. 
* At this point, if the present poll is pIRANS, 
* exit with XM=0 ("handled"). 
% 
LC(2) =eTFWRN (hex 58) "TFM WRN Lnnn:” 
7BoC P Don’t poll for pIRANS poll. 
GOYES HANDLD PTRANS poll! (pTRANS=EF) 
7AH¥C 6B Message #88? (58 hex) 
GOYES EXIT No. Exit poll. 
C=R2 Yes. C(8-5)= insert msg number. 
GOSBVL =CSRC5 Shift msg number to C(A). 
CROEX Put in RO. 
R2=C Store RO in R2 during poll. 
GOSBVL =POLL Poll to translate insertion 
CON(2) =pIRANS message. (Slow poll because 
* nested. ) 
RINC Carry set= error from poll. 
C=RO Transltd msg to C(A). 
GOSBVL =CSLC5 Shift transltd msg to C(8-5). 
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CR2EX Store back in Re. 
RO=C Original RO back to RO. 
EXIT C=-C-1 A Clear carry. 

RINSXM 

¥ 

HANDLD XM=0 "Handled" for pTRANS poll. 
RINCC 

% 


* End of LEXFILE 
* 


FILEND 
END 


Lf. 5.2 One-shot HPIL Translator 


This Spanish translator for HPIL messages would ALWAYS provide 
Spanish translation, as long as it was present in memory. (Due to 
a late-discovered bug in HPIL, for any HPIL message translator to 
work it must be positioned in the file chain search order before 
the HPIL ROM. The easiest way to do this is for the user to copy 
the translator into system RAM; this causes it to come before the 
HPIL ROM in the file chain search. Subsequent releases of the HPIL 
ROM will correct this problem.) To disable the translation, the 
translator file must be purged from RAM. 


In order for this particular example to work properly, the 
mainframe translator shown in the previous example must also be in 
memory. (This is not true in general; this example was constructed 
in conjunction with the previous translator. ) 


TITLE LEXFILE<840123.1614> 


¥ 
* This file was generated on Wed Oct 19, 1983 9:47 am 
* File Header 
NIBASC \ESP255 \ File Name (for lack of better one...) 
CON(4) =fLEX File Type 
NIBHEX 00 Flags 
NIBHEX 7490 Time 
NIBHEX 910138 Date 
REL(5) FILEND File Length 
¥ 
NIBHEX FF Id 
CON(2) 255 Lowest Token 
CON(2) 0 Highest Token 
: NIBHEX 00000 End of lex table chain 
NIBHEX F Speed table omitted 
CON(4) (TxTbSt)+1-(*) Offset to text table 
REL(4) MSGIBL Offset to message table 
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REL(5) POLHND Offset to poll handler 
STITLEMain Table 

* Main Table 

=xromFFE 


STITLE Text Table 
* Text Table 


TxTbSt Text table start 
TxTbEn NIBHEX 1FF Text termination 
STITLE HPIL Message Table: Espanol 
MSGTBL 
: HPIL error messages (Espanol) <840123.1614> 
% 
* NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE ! NOTE 
OR hp ei a a a er eg impact Pa era + 
* | The following Spanish messages are not meant to be | 
* | the official translations of the HPIL ROM messages. { 
* | Please excuse the attempt at translation -- this is | 
* | only meant to be an example of a complete translator | 
* | LEX file. | 
* | | 
* | The translation of message 00 is shown as an example. | 
* | Since “HPIL" is a copywrited and widely accepted tern, | 
* | it is not recommended that it be changed. It is | 
* | done here to demonstrate the implementation of a | 
* | translated message prefix. Any error or warning | 
* | taken from this table will have the "HPCC" prefix | 
: | displayed. E.g., "HPCC ERR:Se Falta Medio”. | 
ee ee a a a eee + 
* 
Wo oof oe cee eee eee eo Sewanee eee eee ao 
* The following equates define the message numbers for 
* pbuilding blocks from the "01" table -- the Spanish 
* translated mainframe messages. 
*  E.g., sEXCHR=4E, so 1EXCHR=104E (hex). 
* 
* 
1EXCHR EQU 256+ ( =SEXCHR) Letras Demasiadas 
IMSPAR EQU 256+ (=sMSPAR) Se Falta Valor 
1ILPAR EQU 256+ (=sILPAR) Valor Prohibido 
1ILEXP EQU 256+ (=sILEXP) Expresion Invalida 
1SYNTX EQU 256+ (=sSYNTX) Sintaxis 
1FPROT EQU 256+ (=sFPROT) Archivo Protegido 
1FnFND EQU 256+ (=sFnFND) Archivo Desconocido 
1FEXST EQU 256+ (=sFEXST) Archio Existe 
1DVCNF EQU 256+ (=sDVCNF) Se Falta Accesorio 
1LINV-O EQU 256+ (=sINV-0) Estado Invalido 
1SYSER EQU 256+ ( =sSYSER) Error de Sistema 
1DATTY EQU 256+ ( =sDATTY ) Data Invalida 
1IVARG EQU 256+ ( =sIVARG) Valor Invalido 
1MEM EQU 256+ (=sMEM) Memoria Insuficiente 
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Ws Na a8 a te So Ne eh eee te ce ei AS de Ae ee 
e 
CON(2) 128 Min message # 
CON(2) 193 Max message # 
¥* 
Hr PP EEE E PEPE Oe eee area eee heen arated 


oe eo vn wm er eer eee mee eevee eee ese eee eeesee eee mreeexeeeaeeeexseeeeseeee 


* Message number 00 can be placed first because its !! 


* total length is 16 nibbles. The first nibble past !! 
* the range field MUST be a0 !!! If message 00 is !! 
* changed, another message with length=16 (or a a 
* multiple of 16) MUST be placed first!! Vs 
*00 HPIL tt 
=SHPIL EQU 00 HPCC (HP Circuito de Canjear) 
CON(2) 16 Et 
CON(2) 00 Message number 00 iy 
CON (1) 4 i 
NIBASC \HPCC \ I 
CON(1} 12 i! 
WIPE P EEE PEPE Edge sede ee eee eee eee eee ee ra cere 
*% 
* Message number 128 is a duplicate 
* of message 00, so that MSG$(255000) 
x will provide a translation. 
+ 
=sHPIL* EQU 128 
CON (2) 8 
CON(2) 128 Message number 128 
CON({1) 13 
CON(2) =SHPIL 
CON(1) 12 
*O1 ASSIGN I0 Needed 
% 
=SNOASN EQU 129 Se Necesita ASSIGN I0 
CON(2) 27 
CON(2)} 129 Message number 129 
CON(1}) 13 
CON(2) =sNECES 
CON (1) 8 
NIBASC \ASSIGN I\ 
NIBASC \O\ 
CON(1} 12 
*03 Excess Chars 
¥ 
=sXCESS EQU 131 Letras Demasiadas 
CON(2) 11 
CON(2) 131 Message number 131 
CON(2) 15 
CON(4) =1EXCHR 
CON(1) 12 


*04 Missing Parm 
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=SMSPAr EQU 132 Se Falta Valor 
CON(2) 11 
CON(2) 132 Message nurber 132 
CON(2) 15 | 
CON(4) =1MSPAR 
CON(1) 12 : 

*Q5 Illegal Parm 

* 

=SILPAr EQU 133 Valor Prohibido 
CON(2) 11 
CON(2) 133 Message number 133 
CON(2) 15 
CON(4) =1ILPAR 
CON(1) 12 

¥06 Illegal Expr 

* 

=SILEXp EQU 134 Expresion Invalida 
CON(2) 11 
CON(2) 134 Message number 134 
CON(2) 15 
CON(4) =1ILEXP 
CON(1) 12 

#07 Syntax 

* 

=SSYNTx EQU 135 Sintaxis 
CON(2) 11 
CON(2) 135 Message number 135 
CON(2) 15 
CON(4) =1SYNTX 
CON(1) 12 


* 
* Errors 16-31 are tape errors 
* 


*16 File Protect 
* 


=sfPROI EQU 144 Archivo Protegido 
CON(2) 11 
CON(2) 144 Message mumber 144 
CON(2) 15 
CON(4) =1FPROT 
CON(1) 12 

*17 End of Medium 


=SEOTAP EQU 145 Fin de Medio 
CON(2) 23 
CON(2) 145 Message mumber 145 
CON (1) 6 
NIBASC \Fin de \ 
CON(1) 13 
CON(2) =sMEDIO 
CON(1) 12 
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*18 Tape stall-Invalid Medium 
% 
=sSTALL EQU 146 Medio Invalido 
CON(2) 14 
CON(2) 146 Message number 146 
CON(1) 13 
CON(2) =sMEDIO 
CON(2) 15 
CON(4) =1LINV-O 
CON({1) 12 
*19 Not LIF-Invalid Medium 
* 
=SNOLIF EQU 147 Medio Invalido 
CON (2) 8 
CON(2) 147 Message number 147 
CON(1) 13 
CON(2) =sSTALL 
CON(1) 12 
¥*20 No Medium 
x 
=SNOTAP EQU 148 Se Falta Medio 
CON(2) 27 
CON(2) 148 Message number 148 
CON(1) 8 
NIBASC \Se Falta\ 
NIBASC \ \ 
CON(1) 13 
CON(2) =sSMEDIO 
CON(1) 12 
*22 File Not Found 
¥% 
=SNFILE EQU 150 Archivo Desconocido 
CON(2) 11 
CON(2) 150 Message number 150 
CON(2) 15 
CON(4) =1FnFND 
CON(1) 12 
*23 New medium-Invalid Medium 
* 
=SNEWIA EQU 151 Medio Invalido 
CON (2) 8 
CON(2) 151 Message number 151 
CON(1) 13 
CON(2) =sSTALL 
CON(1) 12 
ot No data -Invalid Medium 
=SBLANK EQU 152 . Medio Invalido 
CON (2) 8 
CON(2) 152 Message number 152 
CON({1) 13 
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CON(2) =sSTALL 


CON(1) 12 
¥25 Record #-Invalid Medium 
* 
=SRECRD EQU 153 °: Medio Invalido 
CON (2} 8 
CON{2) 153 Message rumber 153 
CON({1) 13 
CON(2) =sSTALL 
CON(1}) 12 
26 Checksun-Invalid Medium 
# 
=SCHSUM EQU 154 Medio Imalido 
CON (2) 8 
CON(2) 154 Message mumber 154 
CON(1) 13 
CON(2) =sSTALL 
CON{1} 12 ! 
¥OE Size of File 
* | 
=8TSIZE EQU 156 Archivo Tamano 
CON(2} 35 | 
CON(2} 156 Message mumber 156 
CON(1) 11 
CON(1) 13 
NIBASC \Archivo \ 
NIBASC \Tamano\ 
CON(1) 12 
*30 File Exists 
% 
=SEFILE EQU 158 Archio Existe 
CON(2) 11 
CON(2}) 158 Message number 158 
CON(2) 15 
CON(4) =1FEXST 
CON(1) 12 
*31 Directory Full 
* 
=sDIRFL EQU 159 Directorio Esta Lleno 
CON(2) 49 
CON(2) 159 Message number 159 
CON{1) 10 


NIBASC \Director\ 
NIBASC \io \ 
CON(1) 9 
NIBASC \Esta Lle\ 
NIBASC \no\ 
CON(1) 12 


& 
* Errors 32-47 are HPIL Errors 
x 
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#32 
* 

=STERM EQU 

CON (2) 

CON (2) 

CON (2) 

Boe 

(1) 


#34 
* 


=SNORDY EQU 


=SLTIMO EQU 

CON (2} 
CON (2) 
CON { 1) 

.i BASC 
NIBASC 
CON (1} 
NIBASC 
NIBASC 
CON (1) 


=SFLOST EQU 
CON (2) 
CON (2) 
CON (1) 


NIBASC 

CON (1} 

CON (2) 

CON (1) 
¥37 


=SOVRUN EQU 


160 
li 
160 
bh 
=1DVCNF 
12 


162 
38 
162 
3 
=SACCES 
Le 
i3 


\ No Esta\ 


GN .bisto\ 


Le 


\Circuito\ 
\ In\ 

3 
\terrumpi\ 


me 


Device Not Found 
Se Falta Accesorio 


Message number 160 


Device Not Ready 
Accesorio No Esta Listo 


Message number 162 


Loop Broken 
Circuite Interrumpido 


Message tmumber 163 


Frame Error- Message Error 
Error de Marco 


Message number 164 


Frame Overrun- Message Error 


Error de Marco 


Message number 165 





HP-71 Software IDS - Detailed Design Description 
HP-71 Code Examples 


*38 
# 


=sLPERR 


¥*39 


= SUNEXP 


#40 
* 


=SXXXXX 


*41 


=SBADMD 


#42 


=sFRIOI 


*43 


=SFRTOL 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 
CON (1) 


NIBASC \ Descono\ 
NIBASC \cido\ 


CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 


12 


168 
8 
168 
13 
=SFLOST 
12 


169 
24 
169 


5 
NIBASC \Estado\ 


CON (2) 
CON (4) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 


15 
=LINV-O 
12 


170 
8 
170 
13 
=SLTIMO 
12 


171 


171 


Frame Changed- Message Error 
Error de Marco 


Message number 166 


Unexpected Message 
Marco Desconocido 


Message number 167 


Frame Lost- Message Error 
Error de Marco 


Message number 168 


Invalid Mode 
Estado Invalido 


Message number 169 


Frame Timeout (SCI)- Loop Broken 
Circuito Interrumpido 


Message mumber 170 


Frame Timeout (Loop)- Loop Broken 
Circuito Interrumpido 


Message number 171 
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*44 


=sSYSer 


*45 


=sTESIF 


*47 


=sDTYPE 


*52 
=SABORT 


*53 
% 


=SDSPEC 


CON (1) 
CON (2) 
CON (1) 


EQU 
CON (2) 
CON (2) 
CON (2) 
CON (4) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (1) 
NIBASC 


13 
=sLTIMO 
le 


173 
41 
173 
10 


\Falta Ve\ 


\rif\ 
5 


\icarse\ 


12 


175 
25 
175 
7 


\Tipo de \ 


13 
=sSACCES 
12 


\Se Ha Ab\ 
\ortado\ 


le 


181 
40 
181 
11 
14 


\Especifi\ 


System Error (Bad cur addr) 
Error de Sistema 


Message number 172 


Self-test failed 
Falta Verificarse 


Message number 173 


Device Type 
Tipo de Accesorio 


Message number 175 


Aborted 
Se Ha Abortado 


Message number 180 


Invalid Device Spec 
Especific’n de Accesorio 


Message number 181 
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*54 


*56 
x 


=SRANGE 


457 
* 


=SNMBOX 


¥59 


=SNORAM 


*60 
* 


=SOFFED 


NIBASC \c’n de \ 


CON (1) 
CON (2) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (2) 
CON (4) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (2) 
CON (4) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
NIBASC 
NIBASC 
CON (1) 
NIBASC 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (2) 
CON (4) 
CON (1) 


EQU 

CON (2) 
CON (2) 
CON (1) 
CON (2) 
CON (1) 


13 
=SsACCES 
12; 


182 
11 
182 
15 
= 1DATTY 


12 


185 

41 

185 

10 
\Se Falta\ 
\ Ci\ 

5 
\rcuito\ 

12 


187 
11 
187 
15 
= 1MEM 
12 


188 
29 
188 
13 

=sNECES 
i) 


NIBASC \RESTORE \ 
NIBASC \IO\ 


CON (1) 


le 


Not nmumeric- Data Type 


Message number 182 


Invalid Arg 
Valor Invalido 


Message ramber 184 


No Loop 
Se Falta Circuito 


Message mumber 185 


Insufficient memory 
Memoria Insuficiente 


Message number 187 


RESTORE 10 Needed 


Se Necesita RESTORE I0 


Message number 188 
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* Error messages 64-end are building blocks 


=SMARCO EQU 190 Marco 
CON(2) 16 
CON(2) 190 Message number 190 
CON(1) 4 
NIBASC \Marco\ 
CON(1) 12 
% 
=SsACCES EQU 191 Accesor1o 
CON(2) 24 
CON(2) 191 Message number 191 
CON(1) 8 
NIBASC \Accesori\ 
NIBASC \o\ 
CON(1) 12 


=SMEDIO EQU 192 Medio 
CON(2) 16 
CON(2) 192 Message number 192 
CON(1) 4 
NIBASC \Medio\ 
CON(1) 12 
* 
=sNECES EQU  =193 Se Necesita 
CON(2) 31 
CON(2) 193 Message number 193 
CON(1) 11 
CON(1) 11 
NIBASC \Se Neces\ 
NIBASC \ita \ 
CON(1) 12 
# 


-NIBHEX FF Table terminator 
* 
* Poll handler goes here. Handler for VER$ poll is 
* provided 
* 


POLHND ?B=0 B VER$ poll? 

GOYES hVER$O Yes. 

GONC hVER$2 No. To hVER$2 w/carry clear. 
hVER$O C=R3 

Di=C 

A=R2 

Di=D1- (VER$en)-(VER$st)-2 

CDIEX 

PAC & 

GOYES nVER$i 

Di=C 
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R3=C 
* 
**!1 LCASC text to be returned for VER$ here 
* Include a leading blank!! 
* 


VER$st LCASC \ ESP255\ For lack of a better name.... 
VER$en DAT1=C (VER$en)-(VER$st)-2 

nVER$1 RINSXM 
*% 


*#*#1! Continue poll handler here: Carry is clear, VER$ poll 
* has been handled. 


* 
nVER$2 
?7B=0 =P Eliminate pTEST poll, which 
GOYES EXIT is in the following range. 
z A=B A Poll mumber to A (for RANGE). 
NIBHEX 33 This is a LC(4)... 
CON(2) =pIRANS pIRANS in C(B) 
. CON(2) =pWARN pWARN in C(3-2) 
GOSBVL =RANGE Poll mumber in range? 
GOC EXIT No. 
MSGhnd C=RO0 Msg number to C(3-0). 
A=C A Copy msg num to A. 
P= 2 
* Now load ID # of LEX file. 
LCHEX FF HPIL LEX#. 
P= 0 
2AHC OA Right LEX file? 
GOYES EXIT No. Don’t translate. 
CSTEX Yes. Set bit7 (adds 
ST=1 7 128 to message number, 
CSTEX unless this bit already 
RO=C set -- just in case.) 
B=B+1 P pIRANS poll? 
GOC HANDLD Yes, Exit “handled”. 
* 
* ! At this point, any message which has a type {5} 
* ! insertion must be checked. These messages are 
* ! known at the time the msg table is constructed. 
* ! If we are handling such a message, a separate 
* ! (nested) pIRANS poll might have to be issued to 
* ! translate the inserted message; but only issue 
* ! the nested poll if you are currently handling a 
* ! a pMEM, pERROR or pWARN poll (pIRANS has already 
* ! exited). To issue the nested poll, fetch the 
* ! indirect msg number from R2, put it in C{A), then 
* CROEX Put it in RO(A). ~ 
* ! R2=C Store RO in R2 during poll. 
* 


GOSBVL =POLL Issue pIRANS poll. 
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= i CON(2) =pTRANS 
* ! RINC Carry set if error in poll. 
* ! C=Re 
* ] CROEX Original RO back to RO. 
* ! And restore insert message number back in R2. 
* NOTE: HPIL ROM does not have any type {5} insertions. 
* 
EXIT C=-C-1A Clear carry. 
RINSXM 
* 
HANDLD XM=0 PpIRANS poll “Handled”. 
RTNCC 
% 
* 
* End of LEXFILE 
* 
FILEND 
END 


17.5.3 Selectable Translator 


The chapter entitled "Message Handling" describes the scheme behing 
a selectable translator. This example is built from the tuo in the 
previous subsections; it could be easily extended to include many 
more languages. 


The structure of the controlling LEX file is described below, 
followed by example satellite LEX files. 


CONTROLLING LEX FILE: 
1) Provides keyword to select a language (Keyword and 
syntax has not been decided upon). 


2) When language is selected, it searches the LEX system 
buffer for the entries for SATELLITE LEX FILE #1, 
SATELLITE LEX FILE #2, and so on. In each entry 
it replaces the address with one which will point 
to the appropriate language table in that satellite 
file. 


3) Also when a language is selected, it opens a system 
buffer (number defined by bIRANS symbol) to store 
the current language. If the buffer exists, it 
simply modifies it. 


4) Provides Poll handler for pCONFG which repeats step 2, 


using the language stored in the system buffer bIRANS 
as a reference. 
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5) Provides Poll handler for VER$ for the entire entourage 
of LEX files, supplying a string such as "TRANS: ESP" 
(indicating the language in effect; e.g., ESP = ESPANOL). 


SATELLITE LEX FILE #1: 


* OK Ok 


File 


* Main 


=Kxrom01 


* Text 
TxTbSt 


TxTbEn 
* 


% 
POLHND 


TITLE LEXFILE<840123.1614> 


Header 
NIBASC 
CON (4) 
NI BHEX 
NIBHEX 
NIBHEX 
REL(5) 


NIBHEX 
CON (2) 
CON (2) 
NIBHEX 


NIBHEX 
CON (4) 
CON (4) 
REL(5) 
STITLE 
Table 


STITLE 
Table 


NI BHEX 


2B=0 
GOYES 
A=B 


NIBHEX 
CON (2) 
CON (2) 


GOSBVL 
GOC 
A=RO 
A=0 


This file was generated on Wed Oct 19, 1983 
\TRANSO1 \ 


= f LEX 
00 
6490 
910138 
FILEND 


10 
255 

0 
00000 


F 
(TxTbSt)+1- (*) 


0000 
rtnsxm 
Main 


Text 


1FF 


EXIT 


33 
=pIRANS 
=pWARN 


=RANGE 
EXIT 


B 


9:46 am 


File Name (for lack of better one...7?7? 
File Type 

Flags 

Time 

Date 

File Length 


Id 

Lowest Token 

Highest Token 

End of lex table chain 


Speed table omitted 
Offset to text table 
No message table. 

No poll handler. 


Table 


Table 


Text table start 
Text termination 


Poll handler for all translators 
in this satellite file. 
Eliminate pIEST poll, which 

is in the following range. 
Poll number to A (for RANGE). 


This is a LC(4)... 
pIRANS in C(B) 
pUARN in C(3-2) 


Poll number in range? 


No. 
Fetch msg number in A(3-0). 
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ASL A 
PAHO) OA If m/f message, A(A)=0. 
GOYES EXIT 
A=RO M/f message. Change LEX# 
A=A+1 XS to 01. 
RO=A 
* One message in the mainframe (message #88) 
* has a type{5} insertion (indirect msg number) . 
= This indirect msg number must also be translated, 
* with a nested pIRANS poll. But only if the 
* present poll is pMEM, pERROR or pUARN. 
* At this point, if the present poll is pIRANS, 
* exit with XM=0 ("handled"). 
* 
LC(2) =eTFURN (hex 58) "TFM WRN Lnnn:" 
2BoC =P Don’t poll for pTRANS poll. 
GOYES HANDLD PIRANS poll! (pTRANS=EF) 
2AH#C 8 86OB Message #88? (58 hex) 
GOYES EXIT No. Exit poll. 
C=R2 Yes. C(8-5)= insert msg number. 
GOSBVL =CSRC5 Shift msg number to C(A). 
CROEX Put in RO. 
R2=C Store RO in R2 during poll. 
GOSBVL =POLL Poll to translate insertion 
CON(2) =pTRANS message. (Slow poll because 
* nested. ) 
RINC Carry set= error from poll. 
C=RO Transltd msg to C(A). 
GOSBVL =CSLC5 Shift transltd msg to C(8-5). 
CR2EX Store back in Re. 
RO=C Original RO back to RO. 
EXIT C=-C-1A Clear carry. 
rtnsxm RINSXM 
* 
HANDLD XM=0 “Handled” for pIRANS poll. 
RINCC 
* 
* 
STITLE Spanish table 
Oe ed tse iste NO eich cael fa aaa ala he Ned hs he a ee Nh es 
* -- Truncated LEX file for Spanish translation -- 
~ (identical to a LEX file, but no file header) 
* 
NIBHEX 10 Id 
CON(2) 255 Lowest Token 
CON(2) 0 Highest Token 
NIBHEX 00000 End of lex table chain 
* 
NIBHEX F Speed table omitted 
CON(4) (TxTbSt)+1-(*) Offset to text table 
REL(4) SPANms Offset to message table 
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REL(5) POLHND Offset to poll handler 
* Main Table 
* When Spanish is selected, the entry in 
+ LEX system buffer should point to the 
* label SPANtb. 
=SPANtb 
* Text Table 
TxTbSt Text table start 
TxTbEn NIBHEX 1FF Text termination 
*& 
* . 
* Message Table (Spanish) 
SPANKS 
CON(2) 1 Min message # 
CON(2) 249 Max message # 
*% 
=SZRDIV EQU 8 /Cero 
CON(2) 16 
CON(2) 8 Message number 8 
_.. entire message table as shoun in previous example. 
sg Ea ee Senate nas isuiete hee eee Waa ties boas Me ee aaeres 
NIBHEX FF Message table terminator. 
* 
# 
* . ‘ 
STITLE German table 
Peco wooo nee nna oe monn eco eee oe oe soa eens 
* -- Truncated LEX file for German translation -- 
o (identical to a LEX file, but no file header) 
* 
NIBHEX 10 Id 
CON(2) 255 Lowest Token 
CON(2) 0 Highest Token 
NIBHEX 00000 End of lex table chain 
*% ’ 
NIBHEX F Speed table omitted 
CON(4) (TxTbSt)+1-(*) Offset to text table 
REL(4) GERMms Offset to message table 
REL(5) POLHND Offset to poll handler 
* Main Table 
* When German is selected, the entry in 
* the LEX system buffer should point to 
* the label GERMtb. 
=GERMtb 
* Text Table 
TxTbSt Text table start 
TxTbEn NIBHEX 1FF Text termination 
% 


Message Table (German) 
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* 
GERMas 

CON (2) 1 Min message # 
CON(2) 249 Max message # 

% 

entire message table as translated into German 

gC ITETTEE TEER Seas eee eee e eee ee eee e eee cents eee esata eS 
NIBHEX FF Message table terminator. 
eee more language tables as desired ....... 


* End of LEXFILE 
* 


FILEND 
END 


SATELLITE LEX FILE #2: 
This would be constructed the same as satellite LEX file #1, 
except that it would contain translators for the HPIL ROM, for 
example. The poll handler for pIRANS, pMEM, pERROR and pwWARN 
would be the same as that found in the example for the one-shot 
HPIL translator. 


ADDITIONAL SATELLITE LEX FILES: 
An additional LEX files would be constructed for each 
translation of a master LEX file. E.g, one satellite file for 
the Text Editor, one for the MATH ROM, etc. Each satellite 
file would contain several message tables, one for each 
language. 
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me me ae ne ne a ee a ne we a ee ee ee 


pre en a ae we me ee nw ww ww ee ee we ee eww wee owe 


+ 

| | 
| HP-71 RESOURCE ALLOCATION | CHAPTER 18 | 

| / | 

+ 


There are several logical and physical resources in the operating 
system, such as ID numbers or fixed RAM locations, which will from 
time to time need to be allocated to OEMs or HP application 
projects. This chapter lists the current allocations for those 
system resources, such as LEX IDs, system buffer mumbers, or poll 
numbers, that may be reserved out of a range of possible values. 


HP-71 Operating system resources will be allocated in a 
conservative manner by arrangement with HP. If you wish to market 
software which requires that you reserve certain of these 
allocations for your exclusive use, please contact Systems 
Engineering Support in the HP Portable Computer Division Product 
Support Group at (503) 757-2000 for further information. 


18.1 Device Types, Classes and Codes 


A brief attempt to explain the very different functions of these 
similar-sounding terms: 


A device type is a nibble which resides in a plug-in device’s 
configuration ID. A value of 0-5 identifies a memory-type device. 
A value of F identifies a memory-mapped I/0 device (such as HPIL 
mailbox). Because of the restrictions on Device Codes, device 
types of 6-E are not allowed. 


A device class is anibble which resides ina plug-in device’s 
configuration ID. It is meaningful only for memory-mapped I/0 
devices, and identifies what sort of memory-mapped device it is. 
While the device type was used to inform the configuration code 
that the device should be configured in memory-mapped I/0 space, 
the device class actually identifies what it is, so the support 
code (HPIL ROM, or whatever) can find it. This nibble becomes part 
of the configuration table entry. 


The device code has nothing to do with the system configuration. 
It is used within the COPY command to identify memory OR non-memory 
devices to which the mainframe does NOT know how to copy. For 
example, EEPROM is a memory device to which the mainframe does not 
know how to copy; “:TAPE" is a non-memory device to which the 
mainframe does not know how to copy. Here is an example of how 
they are used: 
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MEMORY: If a “COPY TO :PORT(1i)" is executed and the mainframe 
code sees something other than a RAM in PORT(1), it will issue a 
pCOPY poll seeking some handler which can copy to said device. 
The device is identified with a device code, which is, in this 
case, the device type + 1 (as determined from looking at the 
configuration tables). If, for example, PORT(1) contains an 
EEPROM (device type = 2), this poll will seek a handler which can 
copy to something with a device code of 3. Legal device codes 
are 0-6, although COPY will not poll if the destination has a 
device code of 0 or 1. 


NON-MEMORY: If a “COPY °:TAPE’”" is executed, a pFILXQ poll will 
allow HPIL to recognize ’:TAPE’, and handle the poll by saying 
that ’:TAPE’ has a device code of 8. A subsequent pCOPY poll 
will look for a handler for a device type of 8. The HPIL ROM 
will respond and handle the copy. All HPIL-recognized devices 
have a device code of 8; more specific identification is possible 
through the “internal coding” fields on the pFILXQ and pCOPYx 
polls. 


Device code 7 is the card reader. 


This mumber goes by several names, among them “Device ID" (in 
pFILXQ documentation) and "Device Type” (in pCOPYx documentation). 


Here are the current allocations of device types, classes and 
codes; 


18.1.1 Device Types 


RAM 

ROM 

EEPROM 
(unassigned) 
(unassigned) 
(unassigned) 
Memory-mapped 1/0 


WO POM Fr © 
vou tf 8 om foot 


18.1.2 Device Class 


0 = HPIL mailbox 
1-F = (unassigned) 


18.1.3 Device Codes 


= System RAM 
= Independent RAM 
6 = Device type + 1 


0 
1 
Pe 
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7 = Card reader 
8 = HPIL 
Q-F = (unassigned) 


18.2 File Types 


The following file types are currently allocated for the HP-71 
product: 


MAINFRAME FILE TYPES 


Hex Numeric Value 


Type Description Security: Normal. S* P* = E* 
BASIC Tokenized BASIC program E214 E215 E216 E217 
BIN HP-71 Microcode E204 E205 E206 E207 
DATA Fixed Data EOFO EOF1 n/a n/a 
LEX Language Extension E208 E209 E20A E20B 
KEY Key Assignment E20C E20D n/a n/a 
SDATA Stream Data EODO n/a n/a n/a 


TEXT ASCII text, in LIF Type 1 format 0001 E0OD5 n/a n/a 


APPLICATIONS FILE TYPES 
Hex Numeric Value 


ee ee em we we ow ee wm oe oe oe ow ee oe oe ot oe om on oe oe 


Type Description Security: Normal S* pP* _ E* 


FORTH Forth vocabulary file E218 E219 E21A E21B 


* § indicates secure, P indicates Private, E indicates executable 


18.3 Special Physical Key Code Allocations 


A LEX file may wish to "push" keys by grabbing the key definition 
poll. In order to force a key definition poll, the LEX file may 
put a special physical keycode (PKC) into the keybuffer (possibly 
during the SREQ poll) which it will recognize as its own and not as 
areal key. To avoid conflict, LEX files need to be assigned a 
unique PKC for this purpose. 


Special PKC Allocations 
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> ome ee ee ee ee ee ee ee ee we we we we we we ee oe 


Application Keycode(s) 


18.4 LEX IDs 


There are 256 LEX IDs within the HP-71, numbered 00 to FF (Hex). 
They are allocated as described in this section. The first two 
(IDs 00 and 01) are used by the mainframe. One hundred and fifty 
LEX IDs are reserved for external or custom products. 


An important feature of HP-71 LEX IDs is the ability to allocate 
portions of a LEX ID. Each LEX ID controls a set of keyword tokens 
and message numbers which are allocated individually or on a range 
basis. A particular application may use only a portion of the 255 
keywords or 255 message numbers within one LEX ID. Another 
application can be allocated the next partition of entries within 
the same LEX ID, and so on. This allows full utilization of LEX 
IDs. 


A summary of the current allocation of LEX IDs is provided below. 


A further breakdown of the token/message range allocations within 
the LEX IDs is provided following the summary. 
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LEX ID ALLOCATION SUMMARY 


LEX ID RANGE 
{Hex} CATEGORY TOKENS MESSAGES 
00 - O1 MAINFRAME | 
02 - 51 APPLICATIONS 
02 - 10 MATHEMATICS 
02 Math All All 
03 Curve Fit Ail All 
li - 1F ENGINEERING 
20 - 29 BUSINESS 
2A - 2E INFORMATION MANAGEMENT | 
2F - 33 LANGUAGES 
eF FORTH/Assembler All All 
34 - 33. TOOLS 
34 Debugger él All 
39 - 4C GENERAL PURPOSE 
39 Editor All All 
4D - 51 MISCELLANEOUS 
52 - 5B USER’S LIBRARY 
52 First LEX ID 01 - 03 0 
53 Second LEX ID 01 O1 
5C - 5E TEMPORARY /SCRATCH 
5F - AE EXTERNAL PRODUCTS 
(3rd Party, ISVs...) 
AF ~- £0 CUSTOM PRODUCTS 
El - F4 CUSTOM PRODUCTS - SPECIAL 
F5 - FF PIL and I/0 


F5 Wand All All 
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Some detailed information: 


All BASIC ROM applications sold by HP will respond to the VER$ poll 


all BASIC ROM applications to include a LEX file containing no 
keywords, but the appropriate code to indicate the proper VER$. 
The last LEX ID for Custom Products - Special (244) will be used as 
the LEX ID to VER$ response of BASIC applications. This LEX ID may 
also be used for keywords by a particular custom application, 
without conflict. 


The Temporary/Scratch LEX IDs allow users to generate their own 
temporary and personal LEX files without the intervention of HP 


needed. 


This guarantees that usage of this ID does not conflict. 


with an HP supported or custom ROM. 


The User’s Library LEX files are collections of keywords and 
functions collected from HP-71 users. As additional keywords are 


received, the User’s Library will release updated versions of these 
LEX files. 


| 
to indicate the appropriate version of the software. This requires 
{ 
! 
| 


A further breakdown of certain LEX ID allocations is given below. 


18.4.1 


01 


02 


03 


18.4.2 


KEYWORD/FUNCTION TOKEN ALLOCATIONS 


— ne me ee cee ee re ewe we me a ee es ae ae i a ee 


KEYWAIT$ 


Hold machine in low-power state until a key is placed in 
the key buffer. 


SCROLL 


LEX ID 52 Hex - First User’s Library ID 
Display a scrolled line. 


MSG$ 
Returns translated error message by polling language 
translator LEX files. 


LEX ID 53 Hex - Second User’s Library ID 


KEYWORD/FUNCTION TOKEN ALLOCATIONS 


eee eee mm ee me me me te ee eee me ee we ee ee we oe ee ee ee ee ee 
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O01 


01 


18.5 


DEBUG 


Accesses Hard-configured Debugger ROM 


MESSAGE NUMBER ALLOCATIONS 


Debugger Not Found 


Poll Process Number Allocations 


Following is a list of poll numbers defined for the mainframe. 


Symbolic Process # 
Name (HEX) 
pVER$ 00 
pDEVCp 01 
pFILDC 02 
pFILXQ 03 
pFSPCp 04 
PFSPCx 05 
pCAT 06 
pCaT$ 07 
pCOPYx 08 
PCREAT 09 
pDIDST OA 
pFPROT 0B 
pLIST 0C 
PMERGE OD 
pPRICL OE 
pPRTIS OF 
pPURGE 10 
PRNAME 11 
PENTER 12 
»pPIL2 13 
pPIL3 14 
pPIL4 15 
pPIL5 16 
pFINDF 17 
pRDCBE 18 
PRDNBF 19 
pwWRCBF 1A 
pKYDF 1B 
pWIKY 1C 


Brief Description 

VER$ poll 

Device Parse 

File Spec Decompile 

File Execute - allows dedicated dvc 
File Spec Parse 

File Spec Execute 

CAT on non-mainframe device 

CAT$ of non-mainframe file 

COPY execute: unknown Devicej>8 
Create file in external device 
Device ID store in RAM @ Dl 
SECURE/UNSECURE/PRIVATE 

LIST of non-mainframe file 

MERGE file dealing w/ funny device 
Print class 

Printer IS 

PURGE on non-mainframe device 
RENAME on non-mainframe device 
Enter data from HP-IL 

Reserved for HPIL 

Reserved for HPIL 

Reserved for HPIL 

Reserved for HPIL 

Find file 

Read current record to file buffer 
Write buffer out & read next record 
Write file buffer to current record 
Build key defn in KEYRD 

Waiting for key in KEYRD 
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pIMXQT 
pIMCHR 
pIMXCH 
piMbck 
pIMcpi 
pIMcpw 
pCRT=8 
pwWwCRD8 
pEOFIL 
pPRIN# 
pREAD# 
pSREC# 
pCURSR 
pDATLN 
pEDIT 
PFASCH 
DELIFE 
pLISTe2 
pMRGE2 
PRUNft 
pRUNnB 
pPRGPR 
pCRDAB 
pRCRD 
pUCRD 
pCALRS 
pCALSV 
pCMPLX 
PREN 
PRINTp 
plIMR# 
pIRFMx 
pFNIN 
pFNOUT 


1D IMAGE execution starts 

1E Unrecognized IMAGE char in parse. 

iF Unrecognized IMAGE symbol in execution. 

20 IMAGE: bckwd search processing 

21 IMAGE: cmplx field initialization 

22 IMAGE: work on complex number 

23 Create non-HP-71 type file 

24 Write card, copycode=8 

25 End of file reached in READ #/PRINT # 

26 PRINI # on non-HP-71 type file 

27 READ # on non-HP-71 type file 

28 RESTORE # on non-HP-71 type file 

29 Cursor Up/Down non-BASIC file type 

2A Return file data length on non-HP-71 file 

2B EDIT with non-BASIC file type 

2c Search for filetype by mnemonic 

2D File type 

2E LIST non-BASIC/non-KEY file 

oF MERGE non-BASIC/non-KEY file 

30 RUN with unknown File Type 

31 RUN non-BASIC file 

32 PURGE of non-RAM file 

33 Abort card read poll 

34 Read card poll 

35 Write card poll 

36 To restore information from CALL stack 

37 To save information on CALL stack 

38 Complex math 

39 Renumber a XWORD stmt with line # 

SA Return Type unknown 

3B Timer # >» 3 in ON TIMER/OFF TIMER stmts 

3U Supply Transform Handler Address 

3D Entering user-defined function 

3E Exiting user-defined function 
Poll mumbers allocated after mainframe release ------ date: ==27 

40 For additional barcode decoders. 01/27/84 
(end of poll numbers allocate after mainframe release) ------ aa 

EF Poll to Translate a Message 

FO Test poll for timing POLLs. 

Fl Insufficient Memory 

Fe Error message about to go out. 

F3 Warning msg about to go out. 

F4 Parse take-over poll - FAST Poll 

F5 Entering BASIC interpreter 

F6 Exiting BASIC interpreter 

F7 Zero addresses/RAM associated w/ Program 

F8 Exception check after statement 

F9 Service request (if SREQ<>0) 

FA Main Loop 
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pCONFG FB Configuration 
pPWROF FC Power off 
pDSUKY FD 
pDSUNK FE 
pCLDST FF Cold start 
18.6 Reserved RAM Allocations 
Reserved RAM 
basis. 

2F986 


, Deep Sleep Wakeup -- key or not 
Deep Sleep Wakeup -- no key down 


is a section of fixed address RAM provided by the 
operating system for use by application software on an allocation 


Bit 0 Math ROM (Complex image status bit) 
Bit 1 Available 
Bit 2 . 
Bit 3 ss 


2F987 


2F9E5 
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Buf fer 
Name 
bSTMT 
DIEXKY 
bDFIB 
DASSGN 
bFILE 
DSTAT 


bCARD 

bSTART 
bECOMD 
bINLIN 


DKBDIS 
DPILSV 
DPILAI 
DSTMXQ 





System Buffer ID Allocations 


Descr iption 

Statement buffer 

Immediate execute key 

File information 

ASSIGN# information 

Temp for file manipulation 
Statistics 


Card reader 

STARTUP command 
External command 
INLINE statement 
Available 

Available 

Available 

KEYBOARD IS key defs 
HPIL save area 
ASSIGNIO names 

HPIL statement execution 
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Range in Hex 
Start Stop 
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bDMATH Math ROM 812 
DSOLVE SOLVE (Math ROM) 813 
bINTEG INTEGRAL (Math ROM) 814 
pMATIO Matrix IO (Math ROM) 815 

Available 816 
bCFIT (Curve Fitting ROM) 817 


bCHISQ Chi Sq (Curve Fitting ROM) 818 
DGRAD. Gradient (Curve Fit ROM) 8193 


DUAND Wand Status/Cksum Info 81A 

bIRANS Message Translator BEA 

bCHARS Alternate Character Set BFB 

DLEX LEX file addresses BFC 
Unused BFD 

bROMIB ROM Configuration Table BFE 

bDSCRTIC Scratch buffers EQO FFF 


18.8 GOSUB Stack Item Type Allocations (RETURN Types) 


Return to program 
Return to keyboard 
ON TIMER 1 ... GOSUB 
ON TIMER 2 ... GOSUB 
ON TIMER 3 ... GOSUB 


Return to assembly language code 
Special (to be allocated) 
10 Special (to be allocated) 
11 Special (to be allocated) 
12 Special (to be allocated) 
13° Special (to be allocated) 
14 Special (to be allocated) 
15 Boundary Address 
If address = 0 
Environment boundary 
else : 
Update address 


OMNI ANP WHF CO 


18.9 System Flag Allocations 


Flag # Mnemonic Function 
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He 


** TEST AND MODIFY FLAGS 
He 


1 
-2 
-3 
~4 
-5 
-6 
“7 
-8 
~9 

-10 

-11 

-12 

-13 

~14 

-15 

-16 

-17 

-18 

-19 

-20 

-21 

-22 

-23 

-24 

-25 

-26 

-27 


Ke 


** TEST ONLY FLAGS 
Ht 


-42 
-43 
-44 
-45 
-46 
-47 
-48 
-49 
-50 
-51 
-52 
-53 
-54 
-55 
-56 
-57 
-58 
-59 


f1QIET 
f BEEP 
f1CTON 
f1lINX 
f 1UNF 
f1lOVF 
f1DVZ 
flIVL 
f 1USER 
f 1RAD 
flINFR 
f INEGR 
f LFXEN 
f 1SCEN 
f1LC 
f 1BASE 
f1DGO0 
f1DG1 
f1DG2 
f£1DG3 
f 1PDUN 
f LEXTD 
f1EOT 
f1NZ4 
f1BPLD 
f 1NOPR 


f MPI 
f1DORM 
f1RIN 

f1CLOC 
f LEXAC 
f£1CMDS 
f1CTRL 
f 1PUDN 
f IMKOF 
f LTNOF 
f1VIEW 


f1AC 
f 1USRX 
f1RPTD 


Quiet Mode 

Beep On 

Continuous On 

Inexact result 

Under flow 

Over flow 

Divide by Zero 

Invalid operation 

User Mode set 

RAD trig mode 

Round to Infinity 
Negative Round 

FIX/ENG flag 

SCI/ENG flag 

Lower Case enabled 

Base Option (high bit!) 
Display digit bit 0 
Display digit bit 1 
Display digit bit 2 
Display digit bit 3 
Don’t pwr loop down auton. 
Use extended addressing 
Entry terminated by EOT 


Beep LOUD 
Don’t Prompt 
Alternate message language 


Module pulled 

Machine is dormant 

Always Return from MEMERR 
Clock mode (1 sec update) 
EXACT flag 

Command Stack Active 
Control key hit 

DSLEEP called from PUR down 
Req set TRNOF in MAINLP 
Turnoff at MAINLP 

VIEV key pressed 

Reserved for Future Use 
Reserved for Future Use 
Reserved for Future Use 
Reserved for Future Use 
AC Annunciator 

User Mode suspend 

Key repeated 
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-60 
-61 
-62 
-63 
-64 


f 1ALRM 
f1BAT 

f 1PRGM 
f 1SUSP 
f1CALC 





Alarm Annunciator 

Low Battery Annunciator 
Program Annunciator 
Suspend Annunciator 
Calc Mode Annunciator 
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Absolute address 
An address which is agual to the exact prysical address 
of the location it designates. 


BET 

Sbbreviation for “Branch Every falers to a GOC o 
SONS machine instruction ‘shicr 24 ooow s to always be 
equivalent to a GGTO because the state of the carry : 
predicatably set or clear, respectively. This is a 
Packing technique wnich saves i nibble ‘GOTO takes 4 
nibbles while GOC and CONC take oniv 3) tut should he 
used with caution and should always te clearly labeled as 
a BET. 





CALL stack 
The CALL stack is used to store the local environment of 
a program or subprogram which has called a subprogram or 
user-defined function. 


File chain 
The data structure by which the HP-71 file system stores 
multiple files in main RAM or in independent RAM. 


na gerne seen mnmsebne erect nfo lt et LIONEL OR I NERA EC LE SME RO ABE a kN I RE RR ASEAN RA CONROE RENE, OE IRENA EA A MAIN: BANE NOM PMB | TT 


General purpose buffer 
Alternate name for a system buffer. 


Independent RAM 
A plug-in RAM memory module which has been declared as an 
independent file system by the FREE PORT command. 


TRAM 
Abbreviation for Independent RAM. 


1/0 buffer 
Alternate name for a system buffer. 


Main loop 
The outermost loop of the HP-71 operating system; the 
control loop. See the “System Control" chapter for 
further information. 
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Abbreviation for ‘Program Counter." The CPU program 
counter register is referred to as the PC register, and 
contains the address of the next instruction the CPU will 
execute. When the operating system is interpreting a 
BASIC file, the address of the next token to be 
interpreted is also loosely referred to as the “PC” of 
the interpreter, and it is stored in register DO. 


RAM 
Abbreviation for random access memcry. 


Relative addrass 
An offset address; usually used to describe the contents 
of a field wnich contains an absolute address from which 
the absolute addres field start has been 
t 


wm 
hay 
gets gh 
a 
ree cD 


ive or negative offset. 


ROM 
Abbreviation for read-oniy memory. 


Saturn 
The HP internal code name for the CPU and bus 
architecture used in the HP-71. 


System buffer 
An operating system resource in main RAM which can be 
created by a LEX file for data storage. Sometimes 
referred to as an 1/0 buffer or a general purpose buffer. 


Titan 
The HP internal code name for the HP-71 computer. 
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1/X15, 9-8 


12-Form Mathematical operand, 13-15, 13-17 
15-Form Mathematical operand, 13-15, 13-17 


A 


ACOS15, 9-8 

ACTIVE, 3-14 

AD15S, 9-8 

AD2-15, 9-8 

ADD, 14-4 

ADD1.5, 3-2 

ADDONE, 9-8 

Address updating 
In system buffers, 3-32 
On GOSUB Stack, 3-40 


System RAM pointers, 3-13, 3-15 


Address zeroing, 3-53 
ADDRSS, 9-18 

ADHEAD, 9-5 

Adjustment Factor, 15-2 
ADRS40, 9-18 

Alarms Scheduling, 15-3 
ALMSRV, 5-4 

ALRM1, 3-17 

ALRM2, 3-17 

ALRM3, 3-17 

ALRM4, 3-17 

ALRM5, 3-17 

ALRM6, 3-17 


Alternate Character Set Buffer, 1le-2 


ANNAD1, 3-2 

ANNAD2, 3-2 

ANNAD3, 3-3 

ANNAD4, 3-3 

Annunciators, 3-3 

ARG15, 9-8 

ARGPR+, 9-10 

ARGPRP, 9-10 

ARGST-, 9-10 

ARGSTA, 9-10 

Array 
Creation, 13-14 
Destroying, 13-14 
Dope Vector, 13-6 
Tokenization, 7-13 

ARRYCK, 9-14 





INDEX 


Index-1 


INDEX HP-71 Software IDS Volume I Index 


ARYDC, 7-17, 9-1 
ASCICK, 7-17, 9-1 
ASIN15, 9-8 
Assembler Instruction Set, 16-1 
ASSIGN Buffer, 11-25, 12-1 
ASSIGN#, 11-25 
ATAN15, 9-8 
ATNDIS, 3-10 
AINFLG, 3-10 
ATIN key processing, 4-4 
AUTINC, 3-16 
Available Memory 
End, 3-38, 3-50 
Management, 3-50 
Start, 3-37, 3-50 
AVMEME, 3-14, 3-37, 3-38 
AVMEMS, 3-14, 3-34, 3-35, 3-37, 3-55 


BASIC 
Application standards, 8-2 
File type, 11-8 
Interpreter, 5-1. 

BASIC file 
Application standards preserving the main environment, 8-2 
Application version number, 8-3 
Chaining, 8-1 
Compiling line number references, 8-1 
Extending system capability, 8-1 
Packing techniques, 8-2 
Program line, 7-1 
ROM generation, 8-1 
Statement chaining, 7-1 
Type, 11-8 
VER$, 8-3 

BF2STK, 9-5 

BIASA+, 9-11 

BIASC+, 9-11 

BIN Subprogram, 11-11 

BIN File, 11-10 

Binary Error Exit, 6-32 

Binary Program, 6-31 
Ending, 6-32 

BLDDSP, 9-2 

BSERR, 10-7 

Buffer 
Alternate Character buffer, 12-2 
ASSIGN buffer, 11-25, 12-1 
Card buffer, 11-24, 12-1 
Configuration buffer, 2-7, 3-26 
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External Command buffer, 12-3 
File 1/0 buffers, 12-4 
File Information Buffer, 11-25, 12-3 
Immediate Execute buffer, 12-13 
LEX Entry buffer, 12-12 
Startup buffer, 12-13 
Statement buffer, 3-31, 5-6 
Statistic buffer, 12-13 
System buffer, 3-31, 3-33 
System buffer (permanent), 3-32 
System buffer (scratch), 3-33 
System buffer address updating, 3-32 
System buffer automatic deletion, 3-32 
System buffer format, 3-31 
System buffer ID allocation, 18-9 
System buffer utilities, 9-16 

Bus 
C bus command, 16-58 
Service Request bus command, 16-105 
Shutdown bus command, 16-104 
System Reset bus command, 16-100 


Cc 


CALL, 3-55, 11-10 
Binary to BASIC During Poll Response, 6-29, 6-33 
Environment Save Area, 3-43, 3-45 
Environment Save Block, 3-40, 3-43, 3-45 
Funny functions in parameter list, 7-14 
Local environment, 3-43 
Parameter count, 3-24, 3-46 
PRMPTR, 3-46 
Stack, 3-44 
Subprogram Save Stack, 3-43 

CALSTK, 3-14, 3-43, 3-44 

Card Reader Buffer, 12-1 

Carriage return, 9-2 

CAT CARD, 12-2 

CATCHR, 9-14 

CHAIN, 11-10 

Channel Number Save RAM, 3-25 

Character Set, 12-2 
Alternate, 12-2 
Standard, 12-2 

Characterization Nibble, 6-4 

Chip ID, 2-4 

CHN#SV, 3-25 

CHNLST, 3-14 

CKSREQ, 5-4 

CLASSA, 9-11 

CLCBFR, 3-13, 3-34, 3-35 


INDEX 
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CLCOLL, 10-19 
CLCSTK, 3-14, 3-34, 3-35, 3-37 
Clock Speed, 3-25 
Clock System, 15-1 . 
Considerations, 15-4 
Servicing, 5-4 
Timer, 15-1 
CLOSEF, 9-6, 11-25 
CLRFRC, 9-9 
CMDPTR, 3-16 
CMOS test word, 3-49 
CMOSTU, 3-9 
CNIADR, 3-15, 3-46 
CNVUUC, 9-14 
COLLAP, 6-30, 10-19 
COMCK, 9-14 
Command Stack, 3-35 
Altering number of stack levels, 3-35 
Complex, 13-5 
Array internal representation, 13-9 
Internal representation, 13-6 
Short, 13-5 
Short array internal representation, 13-8 
Short internal representation, 13-6 
Configuration 
At E0000 and FO000, 2-8 
Buffer, 2-7, 3-26 
Chip ID, 2-4 
Device class, 2-4 
Device number, 2-4 
Device type, 2-4 
Garbage dump, 2-10 
IRAM, 3-47 
Port number, 2-4 
Routine, 2-3 
Sequence, 2-4 
Startup, 2-2 
Constant, 7-12 
COPY 
Card to file, i1-24 
File copy code, 11-1, 11-5, 12-4, 12-5 
File to card, 11-24 
Save Stack usage, 3-38 
To/from card, 11-24 
To/from external media, 11-25 
To/from other memory devices, 11-25 
CoS15, 9-8 
CPU Instruction Set, 16-1 
CRDFIL, 11-24 
CREATF, 11-27 
CRIF, 9-6 
CSPEED, 3-25 
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CURREN, 3-30, 3-46, 3-56 
Current line, 3-20 

CURRL, 3-20 

CURRST, 3-13, 3-30, 3-46, 3-55 
CURSOR, 3-10 


D 


Daisy chain, 2-2 

DATA File, 11-15 

Data Types, 13-1 

DATPTR, 3-15, 3-46 

DBLPI4, 9-11 

DBLSUB, 9-11 

DDICTL, 3-3 

DD1END, 3-3 

DD1ST, 3-3 

DD2CTL, 3-3 

DD2END, 3-3 

DD2ST, 3-3 

DD3CTL, 3-2 

DD3END, 3-2 

DD3ST, 3-2 

Decompile, 4-13 
Algorithm, 4-13 
Array, 7-17, 9-1 
Entry conditions, 7-16 
Exit conditions, 7-17 
Expression, 7-17, 9-1 
External invoking, 4-13 
File specifier, 7-17, 9-1 
Funny function, 7-18 
Get text of token, 7-16, 9-1 
Global assumptions, 7-16 
Initiation, 4-13 
Multi-use routines, 7-17 
Output utilities, 9-13 
Poll, 7-18 
RAM usage, 7-16 
Register usage, 7-16 
Statement terminators, 7-16, 9-1 
Status flag usage, 7-16 
Utilities, 7-16, 9-1 
Variable, 7-17, 9-1 
Writing a decompile routine, 7-16 

Deep sleep Algorithm, 4-5 

DEFADR, 3-24 

DEFAULT 
EXTEND, 12-15 
OFF, 12-15 
ON, 12-15 





INDEX 
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Delay, 9-3 
With Warning Messages, 10-13 
DELAYI, 3-24 
DEST, 9-17, 9-18, 13+13 
Device Type, 12-4 
Device class, 18-1 
Device code, 18-1 
Device type, 18-1 
Allocation, 18-2 
DISINT, 3-9 
DISP statement, 9-15 
Display 
Control, 9-2 
Driver, 3-10 
Format, 12-14 
DISPLAY IS,.3-18, 9-2 
DMNSN, 13-14 
Dope Vector, 13-6, 14-4, 14-6 
Dormant flag, 4-4 
DPOS, 3-24 
DPVCTR, 13-14 
DROP, 14-4, 14-5 
DSLEEP Algorithm, 4-5 
DSPBRS, 3-10 
DSPCHA, 9-2 
DSPCHK, 3-15, 3-55 
DSPMSK, 3-11 
DSPSET, 3-19 
DSPSTA, 3-10 
DSTRY*, 13-14 
DV2-15, 9-8 
DUIDIH, 3-24 


E 


eMEM, 10-8, 10-17 
ENDBIN, 11-10 
Environment 
Save Area, 3-43, 3-44 
Save Block, 3-43, 3-44 
EOLCK, 9-14 
EOLDC, 7-16, 9-1 
EOLLEN, 3-24 
EOLSTR, 3-24 
EOLXC, 7-16, 9-1 
EOLXCK, 7-20, 9-15 
ERRADR, 3-15, 3-46 
ERRL, 10-1, 10-6 
ERRL#, 3-20 
ERRLCH, 3-25 
ERRM$, 10-1, 10-6 
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ERRN, 3-19, 10-1, 10-6 
Error 
Function execution, 7-25 
Insufficient Memory, 10-17 
Message handling, 10-1 
Parse, 7-11, 10-9 
Relinquishing error handling, 7-11 
Statement execution, 7-20 
Error message, 10-4, 10-7 
Last error message ([g] [ERRM]), 10-2, 10-6 
Line number, 3-20 
Message number, 3-19 . 
Prefix, 10-30 . 
ERRSUB, 3-15, 3-46 
ESCSTA, 3-11 
EX-115, 9-9 
EX15, 9-9 
EX15M, 9-11 
Exactness, 14-1 
Exceptions 
Attention key, 3-10 
Handling software interrupts, 5-3 
Execution 
Expression, 7-21 
Function, 7-24 
Function entry conditions, 7-25 
Function entry point, 7-24 
Function exit conditions, 7-25 
Funny function, 7-26 
Immediate mode, 5-6 
Program, 5-7 
Statement, 7-19 
EXP15, 9-9 
EXPEXC, 7-20, 9-5, 9-15, 13-13 
EXPPAR, 9-14 
EXPRDC, 7-17, 9-1 
Expression 
Decompile, 7-17, 9-1 
Parse, 9-14 
Expression execution, 7-21 
Entry conditions, 7-21 
Function returns, 7-24 
Pop numbers and test exceptions, 7-23, 9-5 
Pop numbers off math stack, 7-23, 9-5 
Pop string and reverse, 7-23, 9-6 
Pop string off math stack, 7-23, 9-6 
Subroutine, 7-20, 9-15 
Utilities, 7-23, 9-4 
External Command Buffer, 12-3 
External Module Missing Hardware status bit, 16-5, 16-37 
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F 


Fast. Poll, 6-26 
Issuing and Checking Response, 6-27 
FCSTRT, 9-10 
FIB 
See File Information Buffer, 11-25 
Update pointers, 3-55 
FIBADR, 9-6 
Field selection, 16-10 
FILCRD, 11-24 
FILDC, 7-17 
FILDC*, 9-1 
File 
BASIC, 11-8 
BASIC subheader, 11-8 
BASIC tokenization, 7-1 
BIN, 11-10 
BIN subheader, 11-10 
Chain, 3-29, 11-1 
Copy code, 11-1, 11-5, 12-5 
Copying, 11-24 
Creation, 11-27 
DATA, 11-15 
File chain in memory module, 3-47 
File Chain Length field, 11-1, 11-5 
File Information Buffer, 11-25, 12-3 
Header, 11-3 
Implementation Field, 11-1, 11-4, 11-6 
KEY, 11-21 
LEX, 11-22 
Name, 11-3 
Opening, 11-25 
Protection and open files, 12-4, 12-6 
Protection encoding in file type, 11-7 
SDATA, 11-22 
Searching, 11-26 
Subheader, 11-1, 11-5, 12-4 
TEXT, 11-23 
Type, 11-3, 11-7, 12-4 
Type Table, 11-5, 12-6, 17-2 
File Header, 11-3 
Copy code, 11-3 
Creation date, 11-4 
Creation time, 11-4 
File Chain Length field, 11-1 
File type, 11-3 
Filename, 11-3 
Flags, 11-3 
Implementation Field, 11-1, 11-4, 11-6 
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Subheader, 11-1, 11-5 
File 1/0 buffers, 12-4 
File type, 11-3, 11-7 
BASIC, 11-8 
BIN, 11-10 
DATA, 11-15 
Encoding of file protection, 11-7 
File Type Table, 11-5, 17-2 
KEY, 11-21 
LEX, 11-22 
SDATA, 11-22 
TEXT, 11-23 
FILEP, 9-14 
FILXQ*, 7-20, 9-15 
'FINDF, 7-20, 9-6, 9-15, 11-26 
FINITA, 9-11 
FINITC, 9-11 
FIRSTC, 3-10 
_ Flags 
File Header, 11-3 
System, 3-16, 12-13 
User, 3-16 
FLGREG, 3-16 
FLIP10, 9-11 
FLIP11, 9-11 
FLIP8, 9-11 
FNRIN1, 9-5 
FNRIN2, 9-5 
FNRIN3, 9-5 
FNRING, 9-5 
FNRINx, 7-24 
FOR/NEXT Stack, 3-38 
Foreign Language, 6-19 
Messages, 10-1, 10-15, 10-18 
Translators, 10-2, 10-21, 10-30 
FORSTK, 3-14, 3-34, 3-35, 3-37 
FSPECp, 9-14 
FSPECK, 7-20, 9-6, 9-15 
FUNCDO, 3-22 
FUNCD1, 3-22 
FUNCRO, 3-22 
FUNCR1, 3-22 
Function Execution, 7-24 
Entry conditions, 7-25 
Entry point, 7-24 
Error exits, 7-25 
Exit conditions, 7-25 
Funny functions, 7-26 
Function Tokenization, 7-13 
Funny function, 7-15 


Index-9 


INDEX HP-71 Software IDS Volume I Index 


Funny function 
Decompile, 7-18 
Display of, 6-23 
Execution, 7-26 ° 
Parse, 7-13 
Tokenization, 7-15 


G 


GETCON, 9-11 
GETSA, 9-10 
GETVAL, 9-11 
GNXTCR, 9-12 
GOSUB, 3-39 

GOSUB Stack, 3-39 
GSBSTIK, 3-14, 3-39 
GIEXT1, 7-16, 9-1 


Handling 
Interrupt, 4-6 
Interrupt algorithm, 4-7 
Hard-configured ROMs, 2-8 
Hardware 
Return stack, 16-69, 16-92, 16-101 
Status bit MP, 16-4 
Status bit SB, 16-4 
Status bit SR, 16-4 
Status bit XM, 16-4 
Status bits, 16-4, 16-5 
HNDLFL, 9-11 
HP Logical Interface Format, 11-1, 11-4, 11-23 
HPIL Mailbox, 3-18 
HPSCRH, 3-25 
HTRAP, 9-11 


I 


I/OALL, 9-16 

1/OCOL, 9-16 

1/OCON, 9-16 

1/ODAL, 9-16 

1/OEXP, 9-16 

1/OFND, 9-16 

I/ORES, 3-32, 9-16 

IMAGE, 7-8 

Immediate Execute Buffer, 12-13 
Immediate mode, 5-6 
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Implementation Field, 11-1, 11-4, 11-6 


DATA, 11-16 
INADDR, 3-16 
INBS, 3-15 
Independent RAM, 1-8 
Inf Exception, 13-16, 13-17 
INFR15, 9-9 
Insufficient Memory 
Error, 10-17 
Poll, 10-19 
INTA, 3-9 
INIB, 3-9 
Integer, 13-5 


Array internal Representation, 13-8 


Internal Representation, 13-6 
Packed sign, 13-6 

Interpreter 
Algorithm, 5-4 
Entering, 5-1 
Exiting, 5-2 
Global assumptions, 5-8 
Reentering, 5-1 

Interrupt 
Handling, 4-6 
Handling algorithm, 4-7 
Keyboard, 4-6 
Module pulled, 4-6 
ON-key, 4-6 
Other, 4-6 
Software, 5-3 

INIM, 3-9 

INTR4, 3-9 

INVNaN, 9-11 - 

INXNIB, 3-17 

IOBFEN, 3-13 

IOBFST, 3-13, 3-29 

IOFSCR, 9-16 

IRAM, 1-8 
Configuration, 3-47 
File chain, 3-47 

IS-DSP, 3-18 

IS-INP, 3-18 

IS-PLT, 3-18 

IS-PRT, 3-18 

IS-Table, 3-18 

IS-IBL, 3-18 

IVLINIB, 3-17 
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K 


KCOLx, 3-10 
Key definition Pointer, 3-24 
KEY File, 11-21 
Entry, 11-22 
KEYBFR, 3-10 
Keyboard 
Buffer, 3-10, 9-4 
Flags, 3-10 
Scanning, 9-4 
KEYBOARD IS, 3-18 
KEYPTR, 3-10 
KEYSAV, 3-10 
KEYSCN, 9-4 


L 


Labels, 16-6 
LABLDC, 7-17, 9-1 
Language Tables, 12-9 
LBLINP, 9-14 
LDCSPC, 3-15, 3-26, 7-16 
LEEWAY, 3-50, 3-51, 10-4, 10-17, 10-19 
LEX 
Entry Number Range, 6-20 
ID, 6-2, 6-19 
ID allocation, 6-20 
LEX Entry Buffer, 12-12 
Creation, 12-12 
Usage, 12-13 
LEX File, 6-1, 10-21, 11-22 
Answering poll to “clean up" RAM, 6-31 
Creation, 6-8 
Decompiling, 6-7 
Display of external keywords, 6-23 
Entry numbers, 6-19 
Execution code, 6-6 
External lexical analysis, 6-22 
File structure, 6-1 
GOTO or GOSUB, 6-25 
ID, 6-19 
LEX Entry Buffer, 12-12 
Line number references, 6-25 
Main Table, 6-4 
Memory movement (using MGOSUB), 6-21 
Merging, 6-20 
Message Table, 6-6, 6-19 
Message Table offset, 6-4 
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Name, 10-29 
Next LEX Table link, 6-2 
Parsing, 6-7 
Poll handler, 6-6 
Poll handler offset, 6-4 
Polling, 6-30 
Polling during parse or decompile, 6-30 . 
Range of entry numbers, 6-2, 6-20 
Referencing mainframe entry points, 6-20 
Sample, 17-62 
Search order, 12-12 
Short keywords, 6-23 
Speed Table, 6-2 
Statement Execution, 6-7 
TEXT Table, 6-5 
TEXT Table entry, 6-6 
TEXT Table offset, 6-4 
Lexical Analyzer 
Overriding mainframe lexical analyzer, 6-22 
Restarting, 6-24 
Use of, 6-24 
Lexical Type Table, 12-10 
LEXPTR, 3-16, 3-26, 9-12 
LGT15, 9-9 
LIF, t1-1,. 11-23 
HP Logical Interface Format, 11-4 
LIN#DC, 7-17, 9-1 
Line feed, 9-3 
LN1+15, 9-9 
LN15, 9-9 
LOCK Password, 3-19 
LOCKUD, 3-19 | 
Logical Interface Format, 11-1, 11-4, 11-2 
LOOPST, 3-19 
LR, 14-5 


M 


Machine Code Packing techniques, 17-1 
Main Loop Algorithm, 4-3 
Main Table 
Characterization Nibble, 6-4 
Entry, 6-4 
Execution Address, 6-4 
Mainframe, 12-10 
TEXT Table offset, 6-4 
MAINEN, 3-13, 3-29, 3-31 
MAINST, 3-13, 3-29, 3-31 
MAINT, 12-10 
MAKE1, 9-11 
Math Standard inputs and outputs, 14-1 
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Math Stack, 3-34, 3-37 
Data representation, 13-2 
Data types, 7-21 
Format, 7-21 
Scratch math stack, 3-23 
Usage, 7-21 
Mathematical Operands, 13-15 
12-digit form, 13-15 
15-digit form, 13-17 
Extended values, 13-16 
Packed representation, 13-15 
Unpacked representation, 13-17 
MBOX”, 3-18 
MEMERR, 10-4, 10-7, 10-17 
Entry points, 10-8 
Memory 
Devices, 2-4, 18-1 
Error, 10-4, 10-19 
Layout, 3-12 
Management, 10-17 
Movement, 3-51 
Message 
Error, 10-7 
Foreign language, 6-19 
Formats, 10-29 
Handling, 10-1 
Multiple text insertions, 10-13 
Numbers, 10-3 
Prefix, 10-29 
System, 10-14 
Table, 10-1 
Text Insertion, 10-5 
Type, 10-3 
Warning, 10-11 
Message handling, 10-1 
Entry points, 10-7 
Indirect Calling, 10-14 
Options, 10-3 
Message Table, 6-6, 6-19, 12-10 
Construction, 10-29 
Examples, 10-37 
Message cells, 10-33 
Offset, 6-4 
Range, 10-30 
MESSG, 9-11 
MFERR, 10-7 
MFERR* Entry Conditions, 10-8 
MFERsp, 10-10 
MFURN, 10-11 
Entry Conditions, 10-11 
MFURNQ, 10-11 
MGOSUB, 6-21 
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MLFFLG, 3-21 


Module Pulled Hardware status bit, 16-5, 16-34 
MP Hardware status bit, 16-4, 16-5, 


MP2-15, 9-8 

MPOPIN, 7-23, 9-5 

MPOP2N, 7-23, 9-5 

MSG$, 10-2, 10-30 

MSN15, 9-12 

MIHSTK, 3-14, 3-34, 3-35, 3-37 
MVMEM+, 9-6 


N 


NaN Exception, 13-16, 13-17 
NEEDSC, 3-24 

NIOKEN, 6-24, 9-12 

NUMCK, 9-14 

NXTIRQ, 3-17 

NXTP, 9-14 

NXTSIM, 7-19 


0 


ON ERROR System messages, 10-16 

ON TIMER 
Addresses, 3-15 
Intervals, 3-15 
Servicing, 5-4 

ONINTIR, 3-15, 3-46 

OPENF, 9-6, 11-25 

Operands Mathematical, 13-15 

Operator Tokenization, 7-13 

ORGSB, 9-12 

ORSB, 9-12 

ORXM, 9-12 

OUTIIK, 9-13 

OUT2TC, 9-13 

OUT2TK, 9-13 

OUTSTIC, 9-13 

OQUT3TK, 9-13 

OUITBS, 3-14, 3-34, 3-35, 3-37 

QUTBYT, 9-13 

OUTELA, 9-1 

OUINBC, 9-13 

OUINBS, 9-13 

QUINIB, 9-13 

OUTVAR, 9-14 

OVFNIB, 3-17 
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Packing Techniques 
BASIC, 8-2 
Machine code, 17-1 
Parse, 4-7 
Algorithm, 4-8 
Array, 9-14 
Categorize character, 9-14 
Convert to uppercase, 9-14 
Entry conditions, 7-10 
Errors, 4-12, 7-11, 10-9 
Exit conditions, 7-10 
Expression, 9-14 
External invoking, 4-8 
File name, 9-14 
File specifier, 9-14 
Funny function, 7-13 
Get next character, 9-12 
Get next token, 9-12 
Global assumptions, 7-9 
Initiation, 4-7 
Input utilities, 9-12 
Line mumber or label, 9-14 
Numeric expression, 9-14 
Output a nibble, 9-13 
Output byte or token, 9-13 
Output three bytes, 9-13 
Output two bytes, 9-13 
Output utilities, 9-13 
Output variable, 9-14 
Polling, 7-15 
Register usage, 7-9 
Restart, 4-12 
Restart algorithm, 4-12 
Restore input pointer, 9-12 
Scan for tokens, 9-13 
Simple numeric variable, 9-14 
Simple variable, 9-14 
Statement scratch usage, 7-9 
Statement terminator, 9-14 
Status flag usage, 7-9 
String expression, 9-14 
Utilities, 9-14 
Word scan, 9-13 
Writing a parse routine, 7-1 
PC Program Counter Register, 16-4, 16-101 
PCADDR, 3-15, 3-46 
PI/2, 9-12 
PLOTTER IS, 3-18 
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PNDALM, 3-17 

Pointers CALC mode, 3-33 

Poll, 6-25 
Algorithm, 6-25 
Configuration, 12-3 
COPY to external device, 11-25 
Deep Sleep Wakeup, 12-3 
During decompile, 7-18 
During parse, 7-15 
During Parse or Decompile, 6-30 
Entering BASIC interpreter, 5-1 
Exception, 5-4 
Exiting BASIC interpreter, 5-3 
Fast, 6-26 
File specifier execution, 11-25 
File specifier parse, 11-25 
From a LEX File in RAM, 6-30 
Handler Offset, 6-4 
Insufficient Memory, 10-19 
LEX File Handler, 6-6 
Numbers, 18-7 
Powerdown, 3-49 
Process numbers, 6-31, 18-7 
Responding to, 6-25, 6-29 
Restore CALL environment, 3-45 
RUN an unknown file type, 5-7 
RUN non-BASIC file, 5-7 
Save CALL environment, 3-45 
Save Stack, 3-38, 6-28 
Saved information, 6-28 
Service request, 5-4 
Slow, 6-27 
Special return type, 3-40 
Subroutine Level Usage, 6-29 
VER$, 8-3 
Wakeup, 3-49 
zero Program, 6-31 

POPPIN. “e235. (925 

POP1R, 9-10 

POP1S, 7-23, 9-6 

POP2N, 7-23, 9-5 

POPBUF, 9-4 

POPMIH, 9-6 

Power off Algorithm, 4-5 

PPOS, 3-24 

PREP, 13-14 

PRGEMF, 9-6 

PRGMEN, 3-13, 3-30, 3-46 

PRGMST, 3-13, 3-30, 3-46 

PRINT statement, 9-15 

PRINTER IS, 3-18 

PRMCNT, 3-24 
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PRMPTR, 3-14, 3-46 
Process nurmbers, 18-7 
See Poll process numbers, 6-31 
Program 
Binary, 6-31 
Execution, 5-7 
Line with comment, 7-2 
Line with labels, 7-2 
Scope, 3-30 
Suspending, 5-2 
Program edit, 4-14 
Algorithm, 4-15 
Global assumptions, 4-15 
PURGEF, 9-6 | 
PUIDTH, 3-24 
PUROFF Algorithm, 4-5 


is 


Quiet option, 10-11 


RAM 
Availability, 3-26 
Independent, 3-31, 3-47 

RAMEND, 3-14, 3-44 

Random mumber seed, 3-17 

RAUBFR, 3-13, 3-34, 3-35 

RCL*, 9-10 - - 

RCLW1, 9-10 

RCLV2, 9-10 

RCLU3, 9-10 

RCSCR, 9-10. 

RDBYTA, 9-7. 

READNB, 9-7 

Real, 13-5 
Array Internal representation, 13-7 
Internal Representation, 13-5 
Short, 13-5 


Short array internal representation, 13-7 


REAL SHORT Internal representation, 13-5 

Reference adjust, 3-51 
Address updating, 3-52 
Address zeroing, 3-53 
Buffers, 3-58 
Configuration buffer, 3-53 
File chain, 3-55 
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Referencing Addresses 
In a LEX File, 6-22 
In the Mainframe, 6-20 
Register Program counter, 16-101 
Registers 
CPU, 13-1 
Data Pointers, 16-1, 16-3 
Field selection, 16-10 
Input, 16-1, 16-4 
Output, 16-1, 16-4 
P Pointer, 16-1, 16-3 
Program counter, 16-4 
Scratch, 16-1, 16-2 
ST, 16-1, 16-4, 16-5, 16-13 
Working, 16-1, 16-2 
Representation 
Numeric Array, 13-6 
Scalar Variable, 13-5 
RESERV, 3-26 
RESPIR, 9-12 
RESREG, 3-19 
Restart, 4-12 
REST* entry point, 7-11 
Restarting Lexical Analyzer, 6-24 
Result register, 3-19 
RETURN, 3-39 
Tc machine code, 3-39 
Types, 3-39 
Return stack, 16-69, 16-92, 16-101 
REV$, 7-23, 9-6 
REVPOP, 7-23, 9-6 
RFADJ, 3-51 
RFNBER, 3-13, 3-34, 3-35, 3-37 
RNDAHK, 9-7 
RNSEED, 3-17 
ROM 
File chain, 3-47 
Plug-in, 3-47 
Take-over, 3-48 
Take-over hard configured, 3-48 
Take-over soft configured, 3-49 
Rounding, 14-1 
ROWDVR, 3-3 
RPLLIN, 9-7 
RSTKBF, 3-20, 3-26 
RSTKp, 3-20 
RUN, 11-10 
Save Stack usage, 3-38 
RUNRT1, 7-19 
RUNRIN, 7-19 
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Save Stack, 3-37, 6-28 

SAVESB, 9-12 

SAVEXM, 9-12 

SAVGSB, 9-12 

SAVSIK, 3-14, 3-37 

SB Hardware status bit, 16-4, 16-5, 16-35 

SB15S, 9-8 

Scratch 
(See Scratch RAM), 3-21 
Function, 3-26 
Math Stack, 3-23 
SCRICH, 3-26 
Statement, 3-26 
TRANSFORM Scratch RAM, 3-2 

Scratch RAM | 
Function, 3-21, 3-26 
SCRTICH, 3-22, 3-26 
Statement, 3-21, 3-26 
TRANSFORM, 3-22, 3-26 

SCREXO0, 3-21, 3-23 

SCREX1, 3-23 

SCREX2, 3-23 

SCREX3, 3-23 

Scrolling, 9-2 

SCROLT, 3-24 

SCRPTR, 3-23 

SCRSTO, 3-21, 3-23 

SCRICH, 3-21 

SDATA file, 11-22 

Searching LEX Files, 12-12 

SECURE, 12-6 

Service Request 
Bus command, 16-105 
Checking, 5-4, 16-105 
Hardware status bit, 16-5, 16-35, 16-105 

SFLAG?, 9-7 

SFLAGC, 9-7 

SFLAGS, 9-7 

SFLAGI, 9-7 

SHFLAC, 9-12 

SHFRAC, 9-12 

SHFRBD, 9-12 

SIN15, 9-8 

SKIPDC, 7-17, 9-1 

Slow Poll, 6-27 
Issuing and Checking Response, 6-28 

SNAPBF, 3-20, 3-26 

SPACE, 13-14 
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Speed Table, 6-2 
SPLITA, 9-9 
SPLITC, 9-9 
SPLTAC, 9-9 
SPLTAK, 9-9 
SQR15, 9-8 
SQRSAV, 9-8 
SR Hardware status bit, 16-4, 16-5, 16-35, 16-105 
sSSTdc, 7-16 
ST Register, 16-4, 16-5, 16-13 
Stack 
CALL Stack, 3-44 
Command, 3-35 
FOR/NEXT, 3-38, 3-55 
GOSUB, 3-39, 3-55 
Math, 3-34, 3-37, 7-21 
Return stack, 16-69, 16-92, 16-101 
Return stack save buffer, 3-26 
Save, 3-37, 6-28 
Save Slow Poll information, 6-28 
Scratch math stack, 3-23 
Standard Math Inputs and outputs, 14-1 
Startup Buffer, 12-13 
Stastistics STAT Array internal representation, 13-10 
STAT, 14-4 
STAT Array Internal representation, 13-10 
STATAR, 3-19 
Statement 
Decompile, 4-13 
Execution, 7-19 
Parse, 4-7 
Tokenization, 11-9 
Statement Buffer, 5-6 
Statement execution 
Entry conditions, 7-19 
Error exits, 7-20 
Exit conditions, 7-19 
File name, 7-20, 9-15 
File specifier, 7-20, 9-15 
Find a file, 7-20, 9-15 
Global assumptions, 7-19 
LEX File, 6-7 
Skip to next statement, 7-19 
Statement terminator, 7-20, 9-15 
Utilities, 7-20, 9-15 
Statement Label Chain within BASIC file, 11-8, 11-9 
Statistic Buffer, 12-13 
Statistical Array, 13-9 
Statistics 
Algorithms, 14-2 
Array, 3-19 
Linear Regression, 14-5 
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Statistical Array, 13-9 
Summary, 14-2 
Utilities, 9-10 
Status Settings S13: Program Running, 7-20, 7-25, 10-6, 10-7 
Sticky Bit Hardware status bit, 16-5, 16-35 
STKCHR, 9-5 
STMIDO, 3-21 
SIMID1, 3-21 
STMIRO, 3-21 
SIMTR1, 3-21 
STORE, 9-18, 13-13 
STRGCK, 9-14 
String, 13-5 
Array Internal representation, 13-11 
Internal representation, 13-11 
String Variables, 13-10 
Internal representation, 13-19 
Strings CPU Representation, 13 
STSAVE, 3-15, 3-26 
SISCR, 9-10 
Subdheader 
BASIC, 11-8 
BIN, 11-10 
File header, 11-1, 11-5 
Length, 12-4 
SUBONE, 9-8 
Subprogram 
Chain within BASIC file, 11-8, 11-9, 11-11 
Chain within BIN file, 11-10, 11-11 
Local environment, 3-43 
Parameter count, 3-24 
Save Stack, 3-43, 3-44 
Variables, 13-12 
Writing a BIN Subprogram, 11-11 
SUPBYT, 11-23 
Symbolic References, 6-8 
Symbolics 
Ascil, 6-17 
Mainframe Keywords, 6-8 
Mainframe Operators, 6-17 
Mainframe Relational Operators, 6-17 
symbols, 16-6 
SYSEN, 3-14, 3-34, 3-35, 3-37 
SYSFLG, 3-16, 12-13 
System buffer, 3-31, 3-33 
Address updating, 3-32 
Automatic deletion, 3-32 
Format, 3-31 
ID allocation, 18-9 
Permanent buffer, 3-32 
Scratch buffer, 3-33 
Utilities, 9-16 
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system Flags, 12-13 
System Message, 10-14 
system RAM 
Alarm clock, 3-17 
Availability, 3-26 
CPU snapshot, 3-20 
Decompile usage, 7-16 
DISP/PRINI, 3-24 
AP Hie 3°46; S20 
Interrupt, 3-3 
Parse usage, 7-9 
Reserved, 3-26 
Return Stack save, 3-20 
Update addresses, 3-15 


T 


TANi5, 9-8 

TERCHR, 3-25 

TEXT File, 11-23 

TEXT Table, 6-5 
Entry, 6-6 
Offset, 6-4 
Size of text, 6-6 
Token#, 6-6 

TIMAF, 3-17 

Time Format Internal, 15-2 

TIMER1,. 3=3 

TIMER2, 3-3 

TIMERS, 3-2 

TIMLAF, 3-17 

TIMLST, 3-17 

TIMOFS, 3-17 

TMRAD1, 3-15 

TMRAD2, 3-15 

TMRAD3, 3-15, 3-55 

TMRIN1, 3-15 

TMRIN2, 3-15 

TMRIN3, 3-15 

Token 
Characterization Nibble, 6-4 
Execution Address, 6-4 
Main Table Entry, 6-4 
TEXT Table offset, 6-4 

TOKEN#, 6-6 

Tokenization 
Array, 7-13 
CALL, 7-5 
Comment ( ,REM), 7-2 
Constant, 7-12 
Function, 7-13 
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Funny function, 7-15 
IF. .THEN..ELSE, 7-3 
Label declaration, 7-2 
Operators, 7-13 
Program line, 7-1 
Statement, 7-1, 11-9 
SUB, 7-7 
Variables, 7-12 
XFN, 7-13 
Tokens 
Building Symbolic Tokens, 6-18 
Complete List of Mainframe Keyword Tokens, 6-8 
Symbolic Referencing, 6-8 
TRACE, 5-8 
Mode, 3-19 
TRACEM, 3-19 
Tracing 
Program flow, 5-8 
Variable assignment, 5-8 
TRANSFORM Save Stack usage, 3-38 
Trap Menu, 12-14 
Traps, 3-17, 12-14 
TREMBF, 3-22, 3-26 
TRPREG, 3-17 
Truncation, 14-1 
TST15, 9-7 
Tyo*, 9-12 


U 


UNFNIB, 3-17 

UPDANN, 9-7 

Update addresses 
GOSUB Stack, 3-40 
Reference adjust, 3-52 
System RAM, 3-13, 3-15 

URES12, 9-9 

URESD1, 9-10 

uRND>P, 9-10 

User’s Library LEX files, 10-2 

_ User-Defined Function 
Chain within BASIC file, 11-8, 11-9 
Environment Save Block, 3-40, 3-41 

Multi-line flag, 3-21 
- Parameter count, 3-14 

Parameter pointer, 3-14 

Utilities 
Arithmetic & square root, 9-8 
Decompile, 7-16, 9-1 
Decompile output, 9-13 
Execution statement terminator, 7-20, 9-15 
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Exponential & involution, 9-9 
Expression execute, 7-20 
Expression execution, 9-10, 9-15 
Factorial, 9-10 

File I/0, 9-6 

Find a file, 7-20, 9-15 

Flag, 9-7 

Integer-fraction functions, 9-9 
Inverse trig, 9-8 

Invoking mainframe routines from LEX file, 6-21 
Logarithmic, 9-9 

Math, 9-7 

Miscellaneous math, 9-11 

Numeric comparison, 9-7 

Output, 9-13 

Parse general, 9-14 

Parse input, 9-12 

Parse output, 9-13 

Pop, test, prepare one argument, 9-10 
scratch math stack, 9-10 
Statement execution, 7-20, 9-15 
Statistical, 9-10 

System Buffer, 9-16 

Trig, 9-8 

Variable storage, 9-17 


V 


VARDC, 7-17, 9-1 

Variables, 13-3 
Chain pointer, 3-14 
Chains, 13-3 
Creation, 13-14 
Decompile, 7-17, 9-1 
Destroying, 13-14 
Indirect, 13-12 
Internal representation, 13-3, 13-5 
Management utilities, 9-17 
Parse, 9-14 
Recalling, 13-13 
Storage, 9-17, 13-13 
Tokenization, 7-12 

VARNB-, 9-11 

VARNBR, 9-11 

VECTOR, 3-9 

VER$ poll, 8-3 
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Wakeup algorithm, 4-4 
Warning messages, 10-5, 10-11 
Entry Conditions, 10-11 

Quiet option, 10-11 
WINDLN, 3-10 
WINDST, 3-10 
WRBYIC, 9-7 
WRDSCN, 6-24, 9-13 
URITNB, 9-7 


XEN 
Display of, 6-23 
Tokenization, 7-13 
XM Hardware status bit, 16-4, 16-5, 16-37 
XROMO1, 12-10 
XWORD Display of, 6-23 
XYEX, 9-12 
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YX2-15, 9-9 
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